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SUB accscr 

COLOR 4: LOCATE 1,1: PRINT "ACCOUNT NUMBER": PRINT "NAME": PRINT "OPTION": PRINT "ADDRESS" 

PRINT "CITY": PRINT "STATE": PRINT "ZIP": PRINT "COUNTRY": PRINT "PURCHASES": PRINT "PAID": PRINT "BALANCE 
PRINT "LAST INVOICE": PRINT "TERMS" 

COLOR 3 

END SUB 

SUB alabelit 

CLS : LOCATE 1. 1: PRINT TAB(SO); "Account Labels": COLOR 4 
LOCATE 1,1: PRINT "1": PRINT "2": PRINT "3": PRINT : PRINT "4" 

COLOR 3: LOCATE 1, 3: PRINT "All Accounts": LOCATE 2, 3: PRINT "Selected Accounts" 

LOCATE 3, 3: PRINT "Outstanding Accounts": LOCATE 5, 3: PRINT "Return to Menu" 

END SUB 

SUB expenses! 

CLS : PRINT "1 - Inventory Purchases 
PRINT ”2 - Bad Debts 
PRINT "3 - Bank Service Charges 
PRINT "4 - Auto Expenses 
PRINT "5 - Commissions 
PRINT "6 - Depletion 
PRINT "7 - Dues k Publications 
PRINT "8 - Employee Benefits 
PRINT "9 - Freight 
PRINT “10- Insurance 
PRINT "11- Mortage Interest 
PRINT "12- Other Interest 
PRINT ”13- Laundry & Cleaning 
PRINT "14- Legal & Professional Services 
PRINT "15- Office Expenses 

END SUB 

SUB intros 

CLS : COLOR 3: LOCATE 1, 5: PRINT TAB (37); "SBM 86": PRINT 
PRINT TAB ( 35 } : "Version IE" 

COLOR 4: PRINT TABI31); "(0 Copyright 1991" 

COLOR 4: PRINT TABI32); "Newell Industries" 

COLOR 3: INPUT "Insert Data Disk, Press Return"; i 0$ 

END SUB 

SUB invheader 

LPRINT "Item Part Number"; TAB(29): "Group"; TAB(37); "Quantity"; TAB(48); 

LPRINT "On Order"; TABf 62) : "Cost Each"; TAB(75); "Price Each"; TAB(89); 

LPRINT "Total Cost"; TABf 103) ; "Tot Retail"; TABf 119) ; "GPM" ; tab(138); 

LPRINT "Description": TAB(180); "Location": TABf 200! : “Vendor" 

LPRINT 

END SUB 

SUB invheader2 

LPRINT "Item Part Number"; TABf 29 } ; "Group"; TAB f 37 ) ; "Quantity"; TAB (48 ) ; 

LPRINT "On Order"; TAB(62); "Cost Each": TAB(75); "Price Each"; TAB ( 8 9 ) ; 

LPRINT "Total Cost"; TABf 103) ; "Tot Retail"; TABf 119) ; "GPM" 

LPRINT " Description"; TABf 62 ) ; "Location"; TAB f 89 ) ; "Vendor" 

FOR wwX x 1 TO 125: LPRINT "=\ : NEXT: LPRINT 

END SUB 
SUB invscr 

COLOR 4: LOCATE 1, 1: PRINT "ITEM": PRINT "PART NUMBER": PRINT "DESCRIPTION": PRINT "LOCATION" 

PRINT "QUANTITY": PRINT "ON ORDER": PRINT "COST": PRINT "SALE PRICE": PRINT "REORDER POINT" 


16- Pension I Profit Sharing" 

17- Rent" 

18- Repairs" 

19- Supplies" 

20- Taxes" 

21- Travel k Entertainment" 

22- Utilities" 

23- Wages" 

24- Advertising" 

25- Misc. a" 

26- Misc. b" 

27- Misc, c" 

28- Misc. d" 

29- Print Report" 

30- Exit" 
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COLOR 3 
END SUB 


SUB main® 


CLS 

: COLOR 3: LOCATE 

It 1 



, « 
• 

MAINTENANCE 

REPORTS 

POINT OF SALE 

LABELS":? 

? " 
• 

Add Inventory 

Inventory 

Sale 

Vendor" 

? B 
• 

Add Vendor 

By Vendor 

Returned Stock 

Account 

" 

ft 

Add Account 

By Group 

Totals 

Part" 

? " 
• 

Edit Inventory 

Price List 

Quote” 


? " 
• 

Edit Vendor 

Re-order List 

Close Out Day” 


? « 
« 

Bdit Account 

Turn Reports 

Cash Register" 


? n 
• 

Purchase Order 

Sales Reports” 



? " 
• 

Receiving 

Vendor List” 



* 

Credit Account 

Accounts List” 



? » 
• 

System Setup 

Statements” 



? n 
ft 

DOS Shell 

Expenses” 



? " 
« 

Exit Program” 





COLOR 4: FOR w*=l TO 32: READ xX,y*.k$: LOCATE x*,y%:? k} 
NEXT : Restore 


DATA 3,1,"A*,4,1,"B",5,1,"C",6,1,"D",7,1,”E“,8,1,"F , ',9,1,"G",10,1,"H",11,1 
DATA 12,l,"J",13,l,"iI",14,l,"L" 

DATA 3,21,"P",4,21,"e\5,21,"R\6,21,T,7,21,T,8,21,"U",9,21,"V" 

DATA 10 f 21,"14" ) ll,21,"X“,12,21,"Y" ) 13,21,"Z" 

DATA 3, 41, "1”, 4, 41, "2”, 5, 41, "3", 6, 41, "4", 7, 41 ,"5", 8, 41, "6" 

DATA 3, 61, ”7", 4, 61, "8", 5, 61, "9" 

COLOR 3 
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END SUB 


SUB plheader 

LPRINT "Itei Part Number”; TAB(271; "Description”; TAB(75) : 

LPRINT "Location"; TAB(103); "Price Each" 

FOR ww* = 1 TO 125: LPRINT : NEXT: LPRINT 

END SUB 

SUB roheader 

LPRINT "Ite® Part Nuraber": TAB ( 27 ) ; "Description"; TAB(75I: 

LPRINT "Quantity" ; TAB(87); "Vendor" 

FOR w% = 1 TO 100: LPRINT "="; : NEXT: LPRINT 

BND SUB 

SUB sales® 

CLS : LOCATE 1, 1: PRINT TABI60): "Sales Reports": COLOR 4 

LOCATE 1, 1: PRINT "1": PRINT "2": PRINT "3" : PRINT "4":print:print“0" 

COLOR 3: LOCATE 1, 3: PRINT "Salesperson": LOCATE 2, 3: PRINT "Period" 

LOCATE 3, 3: PRINT "Annual" 
locate 4 , 3 : print ” Zero Accounts" 

LOCATE 6, 3: PRINT "Return to Menu" 

END SUB 

SUB ssscrn 

CLS : LOCATE 1,1: PRINT "Syste® Setup": COLOR 4 

LOCATE 2, 1: PRINT "COMPANY": PRINT "ADDRESS": PRINT "ADDRESS": PRINT "MISC": PRINT "DATE" 
PRINT "NEXT INVOICE I": PRINT "NEXT P.0.4": PRINT "TAX RATES (0-91" 

COLOR 3 

END SUB 

SUB state® 

CLS : LOCATE 1, 1: PRINT TAB(601: "Statements": record* : 1: COLOR 4 
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COLOR 3: LOCATE 1, 3: PRINT "All Accounts": LOCATE 2, 3: PRINT "Outstanding Accounts" 
LOCATE 3, 3: PRINT "Selected Account" 

LOCATE 5, 3: PRINT "Return to Reports Menu" 

END SUB 


SUB tnheader 

LPRINT "Item Part Number"; TAB ( E7 ) ; "Description"; TAB( 76 } ; 

LPRINT "Sold"; TABf 92 } ; "Cost"; TAB( 104) ; "Amount"; TAB f 1 1 8 ) ; "Profit" 
FOR wX : 1 TO 125: LPRINT : NEXT: LPRINT 

END SUB 


SUB venscr 

COLOR 4: LOCATE 1,1: PRINT "VENDOR NUMBER" 


PRINT "NAME": PRINT "ADDRESS": PRINT "ADDRESS"; PRINT "CITY": PRINT "STATE": PRINT "ZIP": PRINT "COUNTRY" 


COLOR 3 
END SUB 


SUB vlabelm 

CLS : LOCATE 1. 1: PRINT TABf 60} ; "Vendor Labels": COLOR 4 
LOCATE 1, 1: PRINT "1": PRINT "2": PRINT : PRINT "3" 

COLOR 3: LOCATE 1, 3: PRINT "All Vendors": LOCATE 2, 3: PRINT "Selected Vendors" 
LOCATE 4, 3: PRINT "Return to Menu" 


END SUB 


DEFDBL A-Z: DIM sp(30), c(28), mf 10) , tr(9), tax(9): WIDTH "LPT1:“, 255 
xmem* - 16000: DIM DYNAMIC srtSfxmem*), srt%fx(nein%) : GOTO intro 
getpw: 

kb$=input$(l) : if kb$=chr$f 13) then return 
pwS : pwS+kbS :?"*"; 
goto getpw 
main: 

tcost : 0: tret - 0 
CALL main® 

WHILE INSTATE 

LOCATE 24,32: ?DATE$ ; M ";TIME$: 

WEND 

k$ : INPUT$(l):k$=LCASE$fk$) 

x* - INSTR("abcdefghijklpqrstuvwxyzl23456789", k$) 

IF ASC(k$) : 15 THEN GOSUB ocr: GOTO main 

IF ASC(k$) : 12 THEN GOTO lockout 

IF ASC(k$):9 THEN SHELL "type lastinv.dat>prn":GOTO main 

quote* = 0: IF x* : 27 THEN quote* : 1 

IF x* : 29 THEN quote* : -1 

IF x* : 0 GOTO main 

xx* : INSTRtmenuS, k$) 

if xx*^0 then cls:pwS:"":? Password: " : : gosub getpwuf pw$odait$ then goto main 
IF x*<12 then rflag*:l 

ON x* GOTO adin, adven, adacc, edin, edvn, edac, purchase, receive, credacc, syssetup, dshell, quit 

ON x*-12 GOTO allinv, vemnv, pginv, plinv, rolist, turn, sales, vlist, alist, state, expenses 

ON x*-23 GOTO sale, rtstck, totals, sale, closout, sale 

ON x*-29 GOTO vlabel, alabel, plabel 

GOTO main 

dshell: 

LOCATE 24,1:? "Enter ’exit’ to return. " : shel 1 

GOTO main 

quit: 

COLOR 7 : CLS : ? "Goodbye " : END 
1190 ocr: 

OPEN " C0M1 : 300 , n , 8 , 1 , RS , CSO , DSO , CDO " AS #7: WRITE #7. chrS(O): CLOSE #7 
1199 RETURN 


sale: 

1230 CLS : LOCATE 1, 1: ? "Sale (Enter 0 to Return to Menu)" 

IF quote* > 0 THEN LOCATE 1, 1: ? “Quote" 

LOCATE 2, 1: INPUT 'Salesperson It"; spn: st : 0: ttol : 0: acc* ; 0: term$ : "Cash" 
IF spn < 1 OR spn > 30 THEN GOTO main 
rflag* - 1: IF quote* < 0 THEN GOTO 1650 

INPUT "Account Prefix"; acc$: prf $ -- acc$: IF LEN(prf$) > 0 THEN GOTO 1370 


an$ = "Cash": aa$ i aa2S : ac$ : "": ast$ = azS - "": acts : 


II M 


GOTO 1570 


1370 IF prf $ : '+■ THEN rflag* - 2: GOTO adacc 

1390 IF rflag* : 2 THEN DECR record*: acc* ^ record*: accS = prf $ : GOTO 1450 
INPUT "Account acc%: record* : acc* 

IF acc* < 1 THEN INPUT "Account Name"; temp$: rflag* : 1: GOTO findac 
1450 IF record* < 1 THEN record* = 1 
fileS : prfS + ".aco": OPEN "R", S3, fileS, 226: GOSUB accfld 
1490 GET #3, record* 

GOSUB cnvrtacc: gosub nulf ld:close *3 
IF record* < 1 THEN GOTO 1230 
record* 

CLS : CALL accscr: GOSUB pracc: INPUT "P.OJ"; ponS 
LOCATE 17, 1: ? "Is this correct?"; : kS - INPUTS(l): x* : INSTRC'yY", k$) 

IF x* : 0 THEN GOTO main 
GOSUB geninv 

1650 CLS : LOCATE 1, 1: ? "Sale (Press Return to end)" 

IF quote* > 0 THEN LOCATE 1,1:? "Quote" 

LOCATE 2, 1: INPUT "Item Prefix"; prfS: IF LEN(prfS) < 1 THEN GOTO fininv 

record*:0:if prfS : "\" then qosub getpn:goto 1910 

INPUT "Item item*: record* - item*: IF item* > 32767 THEN GOTO 1650 

IF item* < 1 THEN INPUT "Enter Part Number"; tempi: rflag* : 1: GOTO findpart 

IF record* < 1 THEN record* : 1 


1510 

1530 

acc* 

1570 
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1790 GET #1, record?. 

1810 G0SU8 convert: gosub nulf Id :close #1 
1830 IF record* < 1 THEN GOTO 1650 
item* : record* 

IF quote* < 0 THEN GOTO 1910 

CIS : CALL invscr : xx%- 1 : GOSUB prirtv : xx%-0 

1910 INPUT "How Many"; tOt: hm : VAL(tO$):if hm : 0 then gosub prinv : goto 1910 
INPUT “Sale Price"; t0$: pe - VAL(tOt) 

IF pe < 0 THEN pe : price - INT((A8S(pe) / 100 * price) * 100) / 100 
IF LEN(tOt) < 1 THEN pe : price 
? hm; " each at"; : PRINT USING fd$; pe 

LOCATE 17, 29: ? "Is this correct?"; : k$ - INPUTS! 1) : x% : INSTR(”vY" , k$) 

IF x* : 0 THEN GOTO 1650 

ep ; 0: ep ; hm * pe: IF pg > 4999 THEN ttol : ttol + ep 

IF quote* < 0 THEN G0SU8 tape: GOTO 2110 

sn$:""; if pg>8999 then input "Enter Serial Number ”;sn$ 

GOSUB prpart: IF quote* > 0 THEN st : st + ep: GOTO 1650 

2110 sold : sold + hm: tds : tds + ep: qn = qn - hm: st ^ st + ep 

dtot : dtot + ep: if prf$-"\" then goto 1650 

GOSUB wrirec: m(0) ^ m(0) + cost * hm 

GOTO 1650 

getpn: 

els: ?”Entrv For Item Not In Inventory (Press ENTER to Void)' 1 
sn$= " " : inpu t " PART NUMBER: " ;part$: if lenfpar t$) < 1 then goto 1650 
inpu t"DESCRIPTION: "; deset ;input"PRQDUCT GROUP : " ; pg 
? : return 
tape: 

LPRINT prf$; record*; TAB(15); : LPRINT USING fi$; hm; : LPRINT " @ !l ; TABT30); 

LPRINT USING fd$; pe 

RETURN 

geninv: 

OPEN "0”, 85, “lastinv.dat" 

LPRINT cpy$: LPRINT cad$: LPRINT cad2S: LPRINT cmist 
? 85, cpv$: ? 85, cad$: ? 85, cad2$: ? 85, cmisS 
IF quote* < 1 THEN GOTO 2330 
LPRINT : LPRINT TA8(35); CHR$(14); "QUOTE": LPRINT 
? 85, : ? 85, TAB ( 35) ; CHR$(14); "QUOTE": ? 85, 

GOTO 2370 

2330 LPRINT : LPRINT TA8(33); CHRSf 14) ; "INVOICE 8"; : LPRINT USING fit; ninv: LPRINT : LPRINT 
? 85, : ? 85, TAB(33); CHR$(14); "INVOICE 8"; ; ? 85, USING fit; ninv: ? 85, : ? 85, 

2370 LPRINT 

LPRINT "TO:"; TAB(43); “Account 8 "; acc$; acc* 

LPRINT ant; TAB(43); "Date "; DATES : dt$=DATE$ 

LPRINT aat: TAB(43); "Salesperson 8"; spn 
LPRINT aa2$; TAB(43); "P.0, or Auth.:"; pont 
LPRINT act; ", “; astt; ” "; az$: LPRINT aett 
LPRINT :::::::::::::::::::::::::::::::::::::::: 

LPRINT : LPRINT CHRtf 15) 

LPRINT "ITEM"; TA8(15); "PART NUMBER"; TAB(35); "SERIAL 8"; TAB(46); "DESCRIPTION"; 

LPRINT TABT90); "QUANTITY PRICE EACH EXTENDED PRICE" 

FOR w* = 1 TO 128: LPRINT 'V; : NEXT: LPRINT 


? 85, "TO:"; TAB(43); "Account 8 "; accS; acc* 

? 85, ant; TA8(43); "Date "; DATES 
? 85, aat; TAB(43); "Salesperson 8"; spn 
? 85, aa2S; TAB(43); "P.O. or Auth.:"; pont 
? 85, act; ", “; astt; “ "; az$ : ? 85, aett 
? 85, 

? 85, : ? 85, CHRt ( 15 ) 

? 85, "ITEM"; TAB(15); "PART NUMBER"; TAB(35); "SERIAL 8"; TAB (46) ; "DESCRIPTION" ; 
? 85, TA8 (90 ) ; "QUANTITY PRICE EACH EXTENDED PRICE" 

FOR w* : 1 TO 128: ? 85, : NEXT: ?85, 

RETURN 

prpart: 

LPRINT prft; record*; TAB( 15) ; partt; TABf 35) ; sn$ ; TAB ( 46) ; descS ; TAB(88); 
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LPRINT USING fd$; ep 

? #5, prf$; record!; TAB(15); parti; TAB(35); snS;TAB(46);descS; TAB(88); 

? #5, USING f f $; hm; : ? #5, USING fd$; pe; : ? #5 , " 

? #5, USING fd$; ep 

RETURN 

fininv: 

CLS : LOCATE 1, 1: ? "Tax Rate ?“; ; k$ : INPUTS(l): ? k$; " r 
x! : INSTR( “0123456789" , k$): IF x! = 0 THEN GOTO 1650 
temp* = x* - 1: PRINT USING "MM"; trftemp!) * 100; : ? "!" 

tax : INT( ( tr( teip% ) * ttol) * 100) / 100: IF tax + .005 < trftemp!) * ttol THEN tax : tax + .01 
total : st + tax 

? "Amount Due"; : PRINT USING fd$; total: INPUT "Amount Paid amt 
IF amt > total THEN ? "Change"; : PRINT USING fd$; amt - total 
IF quote! < 0 THEN GOTO 2950 

? "Terms "; term!; : INPUT tempi: IF LEN(temp$) > 0 THEN term! - tempi 
? "Comments : LINE INPUT comment! 

2950 LOCATE 17, 1: ? "Is This Correct?"; : kS INPUTS(l): x! - INSTR(”yY", k$) 

IF x* = 0 THEN GOTO 1650 

IF amt > 0 THEN GOSUB ocr 

IF quote! < 0 THEN GOTO ftape 

FOR w! : 1 TO 128: LPRINT : NEXT: LPRINT 

FOR w! : 1 TO 128: ? #5, V; : NEXT: ? #5, 

LPRINT "Terms-”; term!; TAB(90); "SUB-TOTAL"; TAB(115); 

LPRINT USING fd$; st 

? #5, "Terms-"; term!; TA8(90); "SUB-TOTAL"; TA8fll5); 

? #5, USING fd$; st 

IF tax > 0 THEN LPRINT TABf 90) ; "TAXA8LE TOTAL"; TAB ( 1 15) ; : ?#5 , TAB(90); “TAXABLE TOTAL"; TAB f 115) ; 

IF tax > 0 THEN LPRINT USING fd$; ttol:? #5, USING fd$; ttol 

IF tax > 0 THEN LPRINT TAB(90); "TAX RATE"; TA6( 115) ; :?85, TA8(90); "TAX RATE"; TABf 115) ; 

IF tax > 0 THEN LPRINT USING ”.#11(1#"; trftemp!) :?#5, USING ".##*##"; tr(temp!) 

LPRINT TAB (90 ) ; "TAX"; TAB(115); : LPRINT USING fd$; tax 
LPRINT TA8 (90 ) ; “TOTAL"; TA8(115); : LPRINT USING fd$; total 
LPRINT TA8( 90 ) ; “AMOUNT PAID”; TAB(115); : LPRINT USING fdl; amt 
? #5, TAB (90) ; “TAX"; TA8(115); : ? #5, USING fdl; tax 
? »5, TAB ( 90 ) ; "TOTAL"; TAB(115); : ? #5, USING fdl; total 
? #5, TAB (90) ; "AMOUNT PAID"; TAB(U5); : ? #5, USING fd$; amt 

IF amt > total THEN LPRINT TAB(90); "CHANGE"; TAB ( 1 15) ; : ?I5 , TAB(90); "CHANGE"; TAB(llS); 

IF amt > total THEN LPRINT USING fd$; amt - total :?#5, USING fd$; amt - total 

bal : 0: IF amt <: total THEN bal ; total - amt 

LPRINT TA8 (90) ; "BALANCE DUE"; TAB(115); : LPRINT USING fd$; bal 

LPRINT comment! 

? #5, TA8(90); "BALANCE DUE"; TA8(115); : ? #5, USING fd$; bal 
? #5, comments 

IF accl > 0 THEN LPRINT "Please remit payment according to terms. Include Account and Invoice numbers on payment 
IF acc! > 0 THEN ? #5, "Please remit payment according to terms. Include Account and Invoice numbers on payment. 

? #5, CHRSf 18) ; CHRS ( 14 ) ; "Thank You For Your Business.": ? 85 , CHRS( 12) 

CLOSE #5 

3330 LPRINT CHRSf 18) ; CHRSf 14) ; "Thank You For Your Business.": LPRINT CHR$(12) 

IF quote! > 0 THEN GOTO main 

tdt = tdt + total: pd = pd + amt: IF amt > total THEN pd : pd - (amt - total) 

ytd : ytd f total - tax: ptd = ptd + total - tax: IF tax > 0 THEN ttd : ttd + ttol 

sp(spn) : sp(spn) + st: taxftemp!) = taxftemp!) + tax 

IF acc! > 0 THEN record! = acc!: lidS = DATES: prfS - accS: GOSUB wrarec 

IF amt >: total THEN dcs - dcs + st: IF tax > 0 THEN dtaxcs : dtaxcs + ttol 

ninv : ninv + 1: G0SU8 wrsrec 

if quote!<0 then goto main 

tempS:“copy lastmv.dat " : templ$=str$(int( ninv-1 ) ) : t83iplS=mid$( tempi! ,2) 
temp$:tempS+templ$ 

shell tempi 

templ|:"pkarc m invoice"+midS( tempi, 17) 
shell tempi! 

GOTO main 
ftape: 

acc! : 0: LPRINT : LPRINT "Subtotal"; TAB(30) ; : LPRINT USING fdl; st 
LPRINT “Tax"; TA0(3O); : LPRINT USING fdl; tax 


li-kini luiai ; ihdiouj; : lkkini uairita Taj; total 

LPRINT "Paid"; TAB(30); ; LPRINT USING fd$; amt 

LPRINT "Change"; TA8(30); ; LPRINT USING fd$; amt - total: LPRINT 

LPRINT cpy$: LPRINT cad$: LPRINT cad2I: LPRINT cmis$: LPRINT 

LPRINT USING fii; ninv; : LPRINT " Date ”; DATES: LPRINT 

GOTO 3330 

rtstck: 

CLS: ? "Return to Stock": INPUT "Prefix"; prf $ 

IF LEN(prfS) < 1 THEN GOTO main 
INPUT "Item 4"; record* 

IF record* < 1 THEN INPUT "Enter Part Number"; tempi: rf lag* : 3: GOTO findpart 
IF record* < 1 THEN record* : 1 

4010 file! = prf $ + ".inv": OPEN "R", tl, file!, 147: GOSUB invfid 
4030 GET »l, record* 

4050 GOSUB convert: gosub nulf ld:close tti 
4070 IF record* < 1 THEN GOTO main 
CLS : CALL invscr: GOSUB prinv 

INPUT "How Many"; t0$: IF LEN(tOI) > 0 THEN hm : VAL( t0$) 

IF hm < 1 THEN GOTO main 

INPUT "Price"; t0$: pe : VAL(tO$): INPUT "Tax Rate"; t0$: temp* VAL(t0!) 

INPUT "Salesperson 4"; t0$: spn : VAL(tOS) 

INPUT "Account Prefix"; acc!: IF LEN(accl) < 1 THEN GOTO 4230 
INPUT "Account tt"; t0$: acc* : VAL(tOI) 

4230 ? "Is This Correct ?"; : k$ r INPUTI(l): x* = INSTR("yY", k$): IF x* : 0 THEN GOTO main 

? "Updating Records": qn = qn + hm: sold = sold - hm; tl = hm * pe: tds : tds - tl 

ytd : ytd - tl: ptd : ptd - tl: tax = tr ( temp*) * tl: IF tax > 0 THEN ttd : ttd - tl 

sp(spn) - sp(spn) - tl: taxftemp*) : tax(temp*) - tax 

GOSUB wrirec: GOSUB wrsrec: IF LEN(acc$) < 1 THEN gosub rsp : GOTO main 

prf $ ; acc$: record* : acc* 

IF record* < 1 THEN record* : 1 

4370 file! : prf $ + ".aco": OPEN "R", #3, file!, 226: GOSUB accfld 
4390 GET S3, record* 

4410 GOSUB cnvrtacc: gosub nu If Id : close #3 

tdt : tdt - (tl + tax): GOSUB wrarec: gosub rsp : GOTO main 

rsp: 

Iprint "Returned to Stock P/N : ” ; par t$ ; M Quantity ";hm;" § "; 

lprint using f d$ ; pe ; : Iprint " ea." 

if len(acc$)<l then lprint "Account tf :CASH” : return 

lprint "Account 4:";prf|;record*;an! 

return 

totals: 

CLS: ? " Annual Period Today" 

PRINT USING fd$; ytd; ptd; dtot 
k$ r INPUTI(l): GOTO main 
closout: 

CLS 

? "Are you sure you want to close out day ?"; : k$ ; INPUTI(l): x* : INSTR(”yY", ki) 

? k$: IF x* : 0 THEN GOTO main 

LPRINT "Daily Sales Report", DATES: LPRINT "Cash Sales "; 

LPRINT USING fd$; dos: LPRINT "Taxable Cash Sales"; 

LPRINT USING fd$; dtaxcs: LPRINT "Total Sales Today "; 

LPRINT USING fd$; dtot: LPRINT "Cost of Goods Sold”; 

LPRINT USING fd$; m(0): LPRINT "Gross Profit "; 

LPRINT USING fd$; dtot - m(0) 

LPRINT : LPRINT "Individual Sales to Date" 

FOR w* : 1 TO 30: IF sp(w*) = 0 THEN GOTO 4770 
LPRINT "Salesperson"; w*; : LPRINT USING fd$; sp(w*) 

4770 NEXT: LPRINT CHR$( 12) : dcs - 0: dtaxcs = 0: dtot = 0: m(0) 0: GOSUB wrsrec: GOTO main 

wrirec; 

file! : prf $ + ".inv": OPEN "R", 41, file!, 147: GOSUB invfid: GOSUB setinv 
PUT #1, record*: gosub nulf ld:close *1: RETURN 
wrvrec: REM write vendor record 

file! - prf! + ".ven": OPEN "R", #2, file!, 180: GOSUB venfld: GOSUB setven 
PUT #2, record*: gosub nulf ld:close 42: RETURN 
wrarec: REM write account record 

file! = prf! + ".aco": OPEN "R", 43, file!, 226: G0SU8 accfld: GOSUB setacc 


tl It 


nulfld: REM null field variables before every close to fix close problem 
tOJ ; " " : tl J ; " " ; t2J ; " " : t3J : " ' : t4J : '"' : t5J : " " ; t6J : " " : t7J-" ” : t8$ : " ' : t9J : " " : tlOJ : 
return 


:tll$: 


ininv: 

LOCATE 2, 16: LINE INPUT iOJ: 

IF LENfiOJ) > 0 THEN part$ : i0$: IF i0$ : THEN RETURN 

LOCATE 3, 16: LINE INPUT iOJ: IF LEN(lOJ) > 0 THEN desc$ : iOJ 

LOCATE 4, 16: LINE INPUT iO$; IF LENfiOJ) > 0 THEN lc$ - iO$ 

LOCATE 5, 15: INPUT iO$: IF LEN(iO$) > 0 THEN qn : VALfiOJ) 

LOCATE 6, 15: INPUT iOJ: IF LENfiOJ) > 0 THEN oo - VAL(iO$) 

LOCATE 7, 15: INPUT l0$: IF LENfiOJ) > 0 THEN cost = VAL(lOJ) 

LOCATE 8, 15: INPUT iOJ: IF LENfiOJ) > 0 THEN price = VAL(iOJ) 

LOCATE 9, 15: INPUT iOJ: IF LENfiOJ) > 0 THEN rp = VAL(iOJ) 

LOCATE 10, 15: INPUT iOJ: IF LENfiOJ) > 0 THEN pg : VAL(iOJ) 

LOCATE 11, 15: INPUT iOJ: IF LENfiOJ) > 0 THEN sold VAL(iOJ) 

LOCATE 12, 15: INPUT lOJ; IF LENfiOJ) > 0 THEN tds - VAL(lOJ) 

LOCATE 14, 15: INPUT iOJ: IF LENfiOJ) > 0 THEN ven : VAL(iOJ) 

RETURN 


inven: 

LOCATE 2, 14: LINE INPUT iOJ 

IF LENfiOJ) > 0 THEN venj : 10$ : IF iOJ : THEN RETURN 

LOCATE 3, 14: LINE INPUT iOJ: IF LENfiOJ) > 0 THEN vnaj : iOJ 

LOCATE 4, 14: LINE INPUT iOJ: IF LENfiOJ) ) 0 THEN vna2J : iOJ 

LOCATE 5, 14: LINE INPUT iOJ: IF LENfiOJ) > 0 THEN vncj : iOJ 

LOCATE 6, 14: LINE INPUT iOJ: IF LENfiOJ) > 0 THEN vns$ r iOJ 

LOCATE 7, 14: LINE INPUT 10$: IF LENfiOJ) > 0 THEN vnzJ : iOJ 

LOCATE 8, 14: LINE INPUT iOJ: IF LENfiOJ) > 0 THEN vnctJ : iOJ 

RETURN 
inacc: 

LOCATE 2, 14: LINE INPUT iOJ 

IF LENfiOJ) > 0 THEN anJ = iOJ: IF iOJ : THEN RETURN 

LOCATE 3, 14: LINE INPUT iOJ: IF LENfiOJ) > 0 THEN aaJ iOJ 

LOCATE 4, 14: LINE INPUT iOJ: IF LENfiOJ) > 0 THEN aa2$ = iOJ 

LOCATE 5, 14: LINE INPUT iOJ: IF LENfiOJ) > 0 THEN ac$ - iOJ 

LOCATE 6, 14: LINE INPUT iOJ: IF LENfiOJ) > 0 THEN astj : iOJ 

LOCATE 7, 14: LINE INPUT iOJ: IF LENfiOJ) ) 0 THEN azJ : iOJ 

LOCATE 8, 14: LINE INPUT iOJ: IF LENfiOJ) > 0 THEN actj : iOJ 

LOCATE 9, 11: INPUT iOJ: IF LENfiOJ) > 0 THEN tdt - VALfiOJ) 
LOCATE 10, 11: INPUT iOJ: IF LENfiOJ) > 0 THEN pd - VALfiOJ) 
LOCATE 13, 14: LINE INPUT iOJ: IF LENfiOJ) > 0 THEN termj : iOJ 
RETURN 


prinv: 

LOCATE 1, 16: ? prfJ; record*: LOCATE 2, 16: ? partj 
LOCATE 3, 16: ? descj: LOCATE 4, 16: ? lcj: LOCATE 5, 16: ? qn 

LOCATE 6, 16: ? oo: LOCATE 7, 16: if xx*:0 then PRINT USING fdj; cost 

LOCATE 8, 16: PRINT USING fdj; price 

LOCATE 9, 16: ? rp: LOCATE 10, 16: ? pg: LOCATE 11, 16: ? sold 

gpm : 0: IF cost > 0 AND price > 0 THEN gpm = (INTffl - (cost / price)) * 1000)) / 10 

LOCATE 12, 16: PRINT USING fdj; tds: LOCATE 13, 16: ? gpm: LOCATE 14, 16: PRINT ven 

RETURN 


prven: 

LOCATE 1, 16: ? prfJ; record* 

LOCATE 2, 14: ? venj: LOCATE 3, 14: ? vnaj: LOCATE 4, 14: ? vna2J 

LOCATE 5, 14: ? vncj: LOCATE 6, 14: ? vnsJ: LOCATE 7, 14: ? vnzJ 

LOCATE 8, 14: ? vnctJ: RETURN 

pracc: 

LOCATE 1, 16: ? prfJ; record* 

LOCATE 2, 14: ? anJ: LOCATE 3, 14: ? aaJ: LOCATE 4, 14: ? aa2J 

LOCATE 5, 14: ? acj: LOCATE 6, 14: ? astj: LOCATE 7, 14: ? azJ 

LOCATE 8, 14: ? actj: LOCATE 9, 14: PRINT USING fdj; tdt 

LOCATE 10, 14: PRINT USING fdj; pd: LOCATE 11, 14: PRINT USING fdj; tdt - Dd 

LOCATE 12, 14: ? lid*: LOCATE 13, 14: ? termj: RETURN 

adin: 

GOSUB adintit :FILES “*.inv":INPUT "Enter Prefix"; prfJ: IF LENfprfJ) < 1 THEN GOTO main 
INPUT "Enter Item Number''; record*; IF record* < 1 THEN GOTO main 
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7410 GET #1, record*: GOSUB convert 
IF part$ > " “ THEN INCR record*: GOTO 7410 

7450 gosub clrprt:G0SUB adintit: CALL invscr: G0SU8 prinv 
GOSUB ininv: IF parts : THEN gosub nulf ld:close il: GOTO main 

GOSUB adintit: CALL invscr: GOSUB prinv 

LOCATE 17, 1: ? "Is this correct?"; : kS = INPUTS(l); x% = INSTR("yY", kS) 

IF x* : 0 THEN GOTO 7450 

GOSUB setinv: PUT #1, record*: INCR record*: GOTO 7410 
adintit: 

CLS : LOCATE 1, 1: ? TAB(60); "ADD INVENTORY": RETURN 
adven: 

GOSUB adventit :FILES "*,ven” : INPUT "Enter Prefix"; prf$: IF LEN(prfS) < 1 THEN GOTO main 

INPUT "Enter Vendor Number"; record*.; IF record* < 1 THEN GOTO main 

files ; prfS + ",ven": OPEN "R", 12, fileS, 180: GOSUB venfld 

7670 GET #2, record*: GOSUB cnvrtven 

IF vns$ > ’ " THEN INCR record*: GOTO 7670 

7710 gosub clrven : GOSUB adventit: CALL venscr: GOSUB prven: GOSUB inven 
IF venS : THEN gosub nulf Id : close 12: GOTO main 

G0SU8 adventit: CALL venscr: GOSUB prven 

LOCATE 17, 1: ? "Is this correct?"; : kS - INPUTS(l): x* : INSTRC'yY", k$) 

IF X* = 0 THEN GOTO 7710 

GOSUB setven: PUT 12, record*: INCR record*: GOTO 7670 
adventit: 

CLS : LOCATE 1, 1: ? TA8(60); "ADD VENDOR": RETURN 
adacc: 

GOSUB adacti t : FILES "*,aco":INPUT "Enter Prefix”; prfS: IF LEN(prfS) < 1 THEN GOTO main 

INPUT "Enter Account Number"; record*: IF record* < 1 THEN GOTO main 

fileS : prfS + ”,aco": OPEN "R", 13, fileS, 226: GOSUB accfld 

7930 GET 43, record.*: GOSUB cnvrtacc 

IF astS > " " THEN INCR record*: GOTO 7930 

7970 gosub clracc : GOSUB adactit: CALL accscr: G0SU8 pracc: GOSUB inacc 

IF anS : THEN gosub nu If Id : close S3: ON rflaq* GOTO main, 1390 

GOSUB adactit: CALL accscr: GOSUB pracc 

LOCATE 17, 1: ? "Is this correct?"; : kS INPUTS(l): x* - INSTR(“yY“, kS) 

IF x* -- 0 THEN GOTO 7970 

G0SU8 setacc: PUT S3, record*: INCR record*: GOTO 7930 
adactit: 

CLS : LOCATE 1, 1: ? TA8(60); "ADD ACCOUNT": RETURN 
invfld: REM setup buffer for inventory record 

FIELD SI, 15 AS tOS, 40 AS tlS, 8 AS t2S, 8 AS t3S, 8 AS t4S, 8 AS t5S, 20 AS t6S, 8 AS t7S, 8 AS t8$, 8 AS t9$, 8 AS tlO$, 8 AS til* 

RETURN 

setinv: 

LSET t2$ : MKDSfqn) : LSET t3S : MKD$(oo): LSET t4$ : HKDS(cost) 

LSET t8$ - MKD$(pg) : LSET t9$ = MKDJ(sold): LSET til* = MKD$( tds) 

LSET tlO$ - MKD$( ven) : LSET tO* = part$: LSET tl$ s desc$: LSET t6$ : let 
LSET t7$ : MKDS(rp): LSET t5$ - MKDS(price) 

RETURN 

convert: 

parti : ": let : parts + " ": descS : lcS + let 

LSET parts = t0$: LSET descS = tl$: LSET lcS t6S 

qn ^ CVD(t2S): oo : CVD(t3S): cost - CVD(t4$): price : CVD(t5S): rp : CVD(t7S) 

pg : CVD(t8$): sold : CVD(t9$): tds : CVD(tllS): ven : CVD(tlOS) 

RETURN 

clrprt: 

parts : " ": lc$ ^ parts + " ": descS : lcS f let 

qn ; 0: oo : 0: cost = 0: price = 0: rp = 0: pg - 0: sold ^ 0: tds : 0: ven = 0: RETURN 

venfld: 

FIELD 12, 40 AS tlS, 40 AS t2$, 40 AS t3S, 20 AS t4$, 5 AS t5S, 15 AS t6S, 20 AS t7S 

RETURN 

setven: 

LSET tl$ : venS: LSET t2S - vnaS: LSET t3S - vna2S: LSET t4S : vncS 

LSET t5S : vnsS: LSET t6S - vnzS: LSET t7S = vnctS 

RETURN 

cnvrtven: 

vnsS : " ": vnz$ : vncS = vnzS + vns$: venS - vncS + vnc$ 


LSET ven$ - tl$: LSET vna$ : t2$: LSET vna2$ : t3$: LSET vnc$ = t4$: LSET vns$ : t5$ 

LSET vnz$ : t6$: LSET vnct$ - t7$ 

RETURN 

clrven: 

vns$ - vnz$ - vnc$ : vnz$ + vns$: ven$ : vnc$ + vncS 

vna$ : ven$: vna2$ ; venS: vnct$ : vnc$ : RETURN 
accf Id: 

FIELD #3, 40 AS tO$, 40 AS tl$, 40 AS t2$, 20 AS t3$, 5 AS t4$, 15 AS t5$, 20 AS t6$, 8 AS t7$, 8 AS t8$, 10 AS t9$, 20 AS tlOS 
RETURN 

setacc: 

LSET tOS -• an$: LSET tl* - aa$: LSET t2$ : aa2$: LSET t3$ : ac$: LSET 14$ : ast$ 

LSET t5$ : az$: LSET t6$ - termS: LSET t7$ - MKDS(tdt): LSET t8$ - MKD$(pd) 

LSET t9$ : lid$: LSET tlO$ : acts 

RETURN 

cnvrtacc: 

ast$ - lid$ - ast$ + ast$: azS : lid$ + ast$: ac$ : lid$ + lid$: anS : ac$ + ac$ 

aa$ ^ an$: aa2S : aa$: acts - ac$: term$ : ac$ 

LSET anS •- t0$: LSET aa$ : tl$: LSET aa2$ = t2$: LSET ac$ - t3$: LSET ast$ : t4$ 

LSET az$ : t5$: LSET termS -- t6$: LSET lid$ : t9$: LSET act$ : tlO$ 

tdt : CVD(t7$): pd : CVD(t8$) 

RETURN 

clracc: 

ast$ -- " lid$ - ast$ + ast$: az$ : lidS + ast$: ac$ = lid$ + lid$: an$ : ac$ + ac$ 

aa$ ^ an$: aa2$ = aa$: act$ = ac$: term$ : acS 

tdt : 0: pd : 0: RETURN 
intro: 

ON ERROR GOTO 24260 

ff$ -• 'l«tlllt.tt a : fi$ - 'IlllttlttC: fd* - ‘ $$*#######.##" 

CALL intros 

9150 OPEN “I", #4, “setup, dat" 

9170 INPUT #4, cpyS, cad$, cad2$, cmisS, daiti, ninv, npo, dtaxcs, dcs, dtot, ttd, ptd, ytd 

9190 FOR Ml = 0 TO 10: INPUT #4, temp: raf w% ) ^ temp: NEXT 

9210 FOR w% = 0 TO 9: INPUT #4, temp: tr(Ml) : temp: NEXT 

9230 FOR Ml : 0 TO 9: INPUT #4, temp: tax(wl) = temp: NEXT 

9250 FOR Ml : 1 TO 30: INPUT #4, temp: sp(wl) : temp: NEXT 

input #4, menu! 

9260 CLOSE 14 

9261 OPEN "I", #4, "expense.dat" 

9265 FOR Ml = 0 TO 28: INPUT #4, c(w%) : NEXT 
9270 CLOSE #4 

9290 ? “Todays Date (mm-dd-yy) ” ; DATES; : INPUT tOS 

IF LEN(tOS) < 1 THEN GOTO main 

IF LEN(tO$)<8 THEN GOTO 9290 

DATES : tO$: GOSUB wrsrec: GOTO main 

syssetup: 

CALL ssscrn: G0SU8 pnntss 

LOCATE 17, 1: ? "(E)dit, (C)ontinue, (R)eturn ?"; : kS ; INPUTS(l) 

IF kS = "e" OR kS : ”E” THEN GOSUB inss: GOTO syssetup 
IF k$ = "c" OR kS : "C" THEN GOTO 9530 
IF k$ = "r" OR kS = ”R" THEN GOTO main 
GOTO syssetup 

9530 LOCATE 17, 1: 7 " Clear Totals ?"; : kS INPUTS(l): xl : INSTRf "vY" , kS) 

IF xl > 0 THEN GOSUB clr totals 
G0SU8 wrsrec: GOTO exitexp 
clrtotals: 

FOR wl : 0 TO 9: taxfwl) - 0:mfw%):0: sp(nl) 0: NEXT:m(10):0 
FOR wl - 10 TO 30: sp(wl) 0: NEXT 

dtaxcs : 0: dcs - 0: dtot : 0: ttd - 0: ptd : 0: vtd - 0: RETURN 

inss: 

LOCATE 2, 18: LINE INPUT tOS: IF LEN(tOS) > 0 THEN cpvS = tOS 

LOCATE 3, 18: LINE INPUT tOS: IF LEN(tOS) > 0 THEN cad$ : tOS 

LOCATE 4, 18: LINE INPUT tOS: IF LEN(tOS! > 0 THEN cad2S : tOS 

LOCATE 5, 18: LINE INPUT tOS: IF LEN(tOS) > 0 THEN cmisS - tOS 

LOCATE 6, 16: INPUT tO$: IF LEN(tOS) > 7 THEN DATES - tOS 

LOCATE 7, 16: INPUT tO$: IF LEN(tOS) > 0 THEN ninv : VAL(tOS) 
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FOR w* : 0 TO 9: LOCATE 9, 15 

? «%; : PRINT USING "4. 44444"; tr(w%) ; : INPUT iO$ 

IF LEN(iO$) > 0 THEN tr(w%) : VAL(iO$) 

LOCATE 9, 15: ? " NEXT 

npw: 

teitip$^menu$:cls: input "Enter Menu Items Allowed Without Password menuS 

if len(menu$)<l then menuS : tempS 

menuS^lcaseSfmenuS) 

locate 14,1: pw$ : " ":? "Enter Password: " ; : gosub getpw:dait$-pw$ 

locate 15,l:pw$=“" :? "Enter It Again: “;:gosub getpw: 

if pw$odait$ then clsiqoto npw 

RETURN 

printss: 

LOCATE 2, 18: ? cpy$: LOCATE 3, 18: ? cad$: LOCATE 4, 18: ? cad2$ 

LOCATE 5, 18: ? cmis$: LOCATE 6, 18: ? DATES 

LOCATE 7, 18: PRINT USING fl$; ninv: LOCATE 8, 18: PRINT USING fl$; npo 

LOCATE 11, 1: FOR w% = 0 TO 4: ? w*; " = : PRINT USING "4.44444"; tr(w%) , : NEXT: PRINT 

LOCATE 12, 1: FOR w* = 5 TO 9: ? w%; “ = : PRINT USING "4. 44444"; tr(w%) , : NEXT: PRINT 

RETURN 

wrsrec: 

10170 OPEN "0”, #4, "setup.dat" 

10190 WRITE 14, cpy$, cad$, cad2$, cmisS, daitS, ninv, npo, dtaxes, dcs, dtot, ttd, ptd, ytd 

10210 FOR w% : 0 TO 10: temp : m(w*): WRITE S4, temp: NEXT 

10230 FOR w* : 0 TO 9: temp : tr(wV): WRITE 44, temp: NEXT 

10250 FOR w% = 0 TO 9: temp : tax(w%) : WRITE 44, temp: NEXT 

10270 FOR w* = 1 TO 30: temp = sp(w%) : WRITE 44, temp: NEXT 

write 44, menuS 

10290 CLOSE 44: RETURN 

edin: 

G0SU8 edintit:FILES "*.inv":INPUT "Enter Prefix"; prfS: IF LEN(prfS) < 1 THEN GOTO main 
INPUT "Enter Item Number"; record*.: temp% = record* 

IF temp* < 1 THEN INPUT “Enter Part Number"; temp$: rflag* : 4: GOTO findpart 

10390 IF record* < 1 THEN record* : 1 

files = prfS + ".inv": OPEN "R", 41, fileS, 147: GOSUB invfld 

10430 GET 41, record* 

10450 GOSUB convert: gosub nulf Id :close 41 
10470 IF record* < 1 THEN GOTO edin 
10490 G0SU8 edintit: CALL invser 

LOCATE 17, 1: ? "(E)dit, (Slave, (D)elete, (F)orward, (B)ack, (N)ext, (G)uit"; 

10530 GOSUB prinv 
10550 kS = INPUTS(l) 

IF kS = "e" OR kS = "E" THEN GOSUB ininv: GOTO 10490 

IF kS : "s" OR k$ : "S" THEN G0SU8 wrirec: GOTO 10530 

IF k$ = ”f" OR kS = “F" THEN INCR record*: GOTO 10390 

IF kS - "b" OR k$ : *B” THEN DECR record*: GOTO 10390 

IF kS - "n" OR kS : "N“ THEN GOTO edin 

IF kS = "q" OR k$ : “Q" THEN GOTO main 

IF kS - “D" THEN parts - GOSUB wrirec: GOTO 10530 
GOTO 10550 
edintit: 

CLS : LOCATE 1, 1: ? TAB(60); "Edit Inventory": RETURN 
edvn: 

G0SU8 edvntit :FILES "*.ven" : INPUT "Enter Prefix"; prfS: IF LEN(prfS) < 1 THEN GOTO main 
INPUT "Enter Vendor Number"; record*: temp* : record* 

IF temp* < 1 THEN INPUT "Enter Vendor Name"; tempS: rflag* : 1: GOTO findven 
10830 IF record* < 1 THEN record* : 1 

fileS - prfS + “,ven": OPEN "R", 42, fileS, 180: GOSUB venfld 
10870 GET 42, record* 

10890 GOSUB cnvrtven: gosub nulf ld:close 42 
10910 IF record* < 1 THEN GOTO edvn 
10930 GOSUB edvntit: CALL venscr 

LOCATE 17, 1: ? "(E)dit, (S)ave, (D)elete, (F)orward, (B)ack, (Nlext, (Q)uit"; 

10970 GOSUB prven 
10990 kS : INPUTS(l) 

IF kS - "e” OR kS = “E" THEN GOSUB inven: GOTO 10930 
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IF kS : "f" OR k$ = "F" THEN INCR record*: GOTO 10830 

IF k$ = "c" OR k$ : "C" THEN INCR record*: GOTO findven 

IF k$ = "b" OR k$ : "8" THEN DECR record*: GOTO 10830 

IF k$ : V OR k$ : "N" THEN GOTO edvn 

IF k$ : "q” OR k$ s "Q" THEN GOTO main 

IF kS : "D" THEN vns$ -- G0SU8 wrvrec: GOTO 10970 
GOTO 10990 
edvntit: 

CLS : LOCATE 1, 1: ? TAB(60); "Edit Vendor": RETURN 
edac: 

11230 G0SU8 edacti t : FILES "*,aco“: INPUT "Enter Prefix"; prf $ : IF LENfprf $) < 1 THEN GOTO main 
INPUT "Enter Account Number"; record*: temp* : record* 

IF temp* < 1 THEN INPUT "Enter Account Name"; temp$ : rflag* ; 2: GOTO findac 

11290 IF record* < 1 THEN record* = 1 

files : prf $ + ".aco": OPEN "R", #3, fileS, 226: G0SU8 accfld 

11330 GET #3, record* 

11350 GOSUB cnvrtacc: qosub nulf ld:close 13 
11370 IF record* < 1 THEN GOTO edac 
11390 GOSUB edactit: CALL accscr 

LOCATE 17, 1: ? "(E)dit, (S)ave, (D)elete, ( F Jorward , (B)ack, (N)ext, (Q)uit"; 

11430 GOSUB pracc 
11450 k$ = INPUT$(1) 

IF kS = "e" OR k$ - "E" THEN GOSUB inacc: GOTO 11390 
IF k$ - "s" OR k$ -• "S" THEN GOSUB wrarec: GOTO 11430 

IF kS : "f" OR kS : "F" THEN INCR record*: GOTO 11290 

IF kS : "c" OR k$ : "C" THEN INCR record*: GOTO findac 

IF k$ : “b" OR k$ : "8" THEN DECR record*: GOTO 11290 

IF k$ = "n" OR k$ : "N" THEN GOTO 11230 

IF k$ : "q" OR k$ : "8" THEN GOTO main 

IF k$ - "D" THEN ast$ - GOSUB wrarec: GOTO 11430 
GOTO 11450 
edactit: 

CLS : LOCATE 1, 1: ? TAB(60); "Edit Account" : RETURN 
purchase: 

CLS : LOCATE 1, 1: ? TAB(50); "Purchase Order 4"; : PRINT USING fi$; npo: LOCATE 1, 2 
? "Enter Vendor Prefix"; : INPUT prf$: IF LEN(prfS) < 1 THEN GOTO main 
INPUT “Enter Vendor Number": record*: temp* : record* 

IF temp* < 1 THEN INPUT "Enter Vendor Name"; tempi: rflag* : 2: GOTO findven 
IF record* < 1 THEN record* : 1 

file! = prf $ + ".ven": OPEN "R", #2, files, 180: GOSUB venfld 
11810 GET 42, record* 

11830 GOSUB cnvrtven: gosub nulf Id :close 42 
11850 IF record* < 1 THEN GOTO purchase 
CLS : CALL venscr: G0SU8 prven 

LOCATE 17, 1: ? "Is this correct?"; : k$ -- INPUTS(l): x* - INSTRC'yY”, k$) 

IF x* = 0 THEN GOTO main 

INPUT “Enter Account Number"; tempS 

GOSUB genpo: tot : 0 

11970 CLS : LOCATE 1, 1: ? "Enter Item Prefix"; : INPUT prf$ 

IF LENfprf $) < 1 THEN GOTO 11970 

IF prf $ : THEN GOTO finpo 

INPUT "Enter Item Number"; record*: temp* : record* 

IF temp* < 1 THEN INPUT “Enter Part Number"; tempS: rflag* : 6: GOTO findpart 
IF record* < 1 THEN record* : 1 

file! -- prf $ + \inv’: OPEN "R", 41, fileS, 147: GOSUB invfld 
12110 GET 41, record* 

12130 GOSUB convert: gosub nulf ldiclose 41 
12150 IF record* < 1 THEN GOTO 11970 
CLS : CALL invscr: GOSUB prinv: hm = 0 

? "Order How Many”; : INPUT tOS: hm - VAL(tOS): IF LEN(tOS) < 1 THEN GOTO 11970 
? "Cost Each"; : INPUT tOS: IF LEN(tOS) < 1 THEN pocost : cost: GOTO 12250 
pocost : VAL(tOS) 

12250 LOCATE 17, 1: ? "Is this correct?": : k$ : INPUTS(l): x* - INSTRC'yY", k$) 

IF x* : 0 THEN GOTO 11970 

G0SU8 popart: oo = oo + hm: tot = tot + (hm * pocost): G0SU8 wrirec: GOTO 11970 


LPRINT cpy$: LPRINT cad$: LPRINT cad2$: LPRINT cmis$ 

LPRINT "Date DATE$: LPRINT TA8(30); CHR$(14); "PURCHASE ORDER" 

LPRINT TAB (33 ) ; : LPRINT USING fi$; npo 

LPRINT CHR$( 15) : LPRINT "-I:::::::::::;::::::::;::::::-;-:::;;: ' 

LPRINT "VENDOR:"; TAB(6i); “SHIP TO:": LPRINT ven$; TAB(61); cpyS 
LPRINT vna$; TAB(61); cad$: LPRINT vna2$; TA8(61); cad2$ 

LPRINT vnc$; vns$; vnz$ 

LPRINT vnctS ; TAB (61 ) ; "Account ft"; temp$ 

LPRINT I::::::::::::::::::::::::::::::::;:::;;: 

LPRINT : LPRINT "Item"; TAB(15); "Vendor Number"; TA8(31); 

LPRINT "Description"; TAB(74); "Quantity"; TAB(87); "Price Each"; TAB(99); 

LPRINT "Extended Price" 

FOR w* - 1 TO 112: LPRINT : NEXT: LPRINT 

RETURN 

popart: 

LPRINT prf $ ; record*; TAB(15); part$; TAB(31); desc$; TA8( 72) ; 

LPRINT USING fi$; hm; : LPRINT USING fd$; pocost; 

LPRINT USING fd$; pocost * hm 

RETURN 

finpo: 

CLS : INPUT "Terms"; term*: INPUT "Discount"; disc$: disc : VAL(discJ) 

IF disc < 0 THEN disc : INT((A8S(disc) / 100 * tot) * 100) / 100 
INPUT "Authorized by:"; t0$ 

INPUT "Shipping Charge"; sc 

fot : tot + sc: distot ^ tot - disc 

FOR w* : 1 TO 112: LPRINT : NEXT: LPRINT 

LPRINT "Terms-"; term$; TAB(70); "Shipping"; TAB(98); : LPRINT USING fd$; sc 

LPRINT "Authorization-"; t0$; TA8(70); "Subtotal”; TAB(98); : LPRINT USING fd$; tot 

IF disc > 0 THEN LPRINT TAB (70) ; "Discount"; TAB(98); : LPRINT USING fd$; disc 

LPRINT TA8(70); "TOTAL"; TA8(98); : LPRINT USING fd$; distot 

LPRINT CHRS(18); CHR$( 12) : npo : npo + 1: GOSUB wrsrec 

GOTO main 

receive: 

CLS : LOCATE 1, 1: ? "Receiving" 

INPUT "Enter Prefix"; prf $: IF LEN( prf $ ) < 1 THEN GOTO main 
INPUT “Enter Item Number"; record*: temp* : record* 

IF temp* < 1 THEN INPUT “Enter Part Number"; temp$: rflag* ^ 5: GOTO findoart 
IF record* < 1 THEN record* = 1 

files : prf $ f ".inv": OPEN "R", #1, fileS, 147: GOSUB invfld 
13150 GET #1, record* 

13170 GOSUB convert: gosub nulf ld:close 11 
13190 IF record* < 1 THEN GOTO receive 
CLS : CALL invscr: G0SU8 pnnv 

INPUT “Quantity Received "; hm: INPUT "Cost Each"; pocost 
IF qn f hm < 1 THEN GOTO 13330 

? "Use Cost Averaging : k$ = INPUTS(l); ? k$: x* : INSTR(”yY", k$) 

IF x* : 0 THEN cost : pocost: GOTO 13330 
cost : (qn * cost + hm * pocost) / (qn + hm) 

13330 LOCATE 18, 1: ? "Is this correct?"; : k$ : INPUTS(l): x* : INSTR(“yY", kS) 

IF x* : 0 THEN GOTO receive 

qn - qn + hm: oo -- oo - hm: IF oo < 0 THEN oo : 0 

G0SU8 wrirec: GOTO receive 

credacc: 

CLS : LOCATE 1,1:? "Credit Account" 

INPUT "Enter Prefix"; prfS: IF LEN(prfS) < 1 THEN GOTO main 
INPUT "Enter Account Number"; record*: temp* - record* 

IF temp* < 1 THEN INPUT "Enter Account Name"; temp$ : rflag* = 3: GOTO findac 
IF record* < 1 THEN record* : 1 

fileS : prf $ + ".aco": OPEN "R", #3, fileS, 228: GOSUB accfld 
13550 GET 43, record* 

13570 GOSU8 cnvrtacc; gosub nu If Id : close 43 
13590 IF record* < 1 THEN GOTO credacc 
CLS : CALL accscr: GOSUB pracc 
INPUT "Received $"; temp 

LOCATE 17, 1: ? “Is this correct?"; : k$ : INPUTS(l): x* : INSTR ( "yY" , k$) 


IF X* -■ 0 THEN GOTO credacc 
? : input “Enter Form Of Payment or code: ";fopS 
pd = pd + temp 
G0SU8 wrarec 

lprint "Credited " ;an$; : Iprint using f d$ ; temp ; : lpr int " FOP: ” ;f op$ 
lprint " ACC# " ;prf $ ; records 

GOTO credacc 
invpart: 

gpm : 0: IF cost > 0 AND price > 0 THEN gpm : (INT((1 - (cost / price)) * 1000)) / 10 
LPRINT record*; TAB(8); partS; TAB(24); : LPRINT USING fi$; pg; : LPRINT TAB(35); 

LPRINT USING fi$; qn; : LPRINT TA8(46); : LPRINT USING fi$; oo; : LPRINT TAB(57) ; 

LPRINT USING fd$; cost; : LPRINT TA8(71); : LPRINT USING fd$; price; : LPRINT TAB(85); 

LPRINT USING fd$; cost * qn; : LPRINT TAB(99); : LPRINT USING fd$; price * qn; : LPRINT TAB( 119) 
LPRINT gpm: LPRINT TAB(8); desc$; TAB(62); lc$; TA8(89); ven 
tcost : tcost + (cost * qn): tret : tret + (price * qn) 

RETURN 
invpar t2 : 

gpm : 0: IF cost > 0 AND price > 0 THEN gpm : (INT((1 - (cost / price)) * 1000)) / 10 
LPRINT record*; TAB(8); part$; TAB(24); : LPRINT USING fi$; pg; : LPRINT TAB(35); 

LPRINT USING fiS; qn; : LPRINT TAB(46); : LPRINT USING fi$; oo; : LPRINT TAB(57); 

LPRINT USING fd$; cost; : LPRINT TAB(71); : LPRINT USING fd$; price; : LPRINT TAB(85); 

LPRINT USING fd$; cost * qn; : LPRINT TAB(99); : LPRINT USING fd$; price * qn; : LPRINT TAB( 119) 
LPRINT gpm: LPRINT TAB { 8) ; desc$; TAB(62); lc$; TA8(89); ven 
tcost : tcost + (cost * qn): tret : tret + (price * qn) 

RETURN 

wctest: 

if wc%=l then call invheader : return 

call invheader2 

return 

wctest2: 

if wc%- 1 then gosub invpart : return 

gosub invpar t2 

return 

allinv: 

CLS : LOCATE 1, 1: ? “Print Inventory”: record* : 1: temp* : 1: x* : 0 

INPUT "Enter Inventory Prefix"; prf $ : IF LEN(prfS) < 1 THEN GOTO main 

13970 CLS : ? "Sort By": ? "1-Item Number": ? "2-Part Number": ? '^Description" 

? "4-Exit": INPUT "Enter Choice"; tempi: xx* : VAL(temp$) 

IF xx* < 1 OR xx* ) 4 THEN GOTO 13970 

input "Enter 1 for wide (default), 2 for narrow printer. ";wc* 

if wc%< 1 then wc*:l 

srt$ : "Item Number": IF xx* : 2 THEN srt$ : "Part Number" 

IF xx* : 3 THEN srt$ = “Description" 

IF xx* - 1 THEN GOTO 14510 

IF xx* : 4 THEN GOTO main 

file! = prf $ + “.inv": OPEN “R", 111, fileS, 147: GOSUB invfid 
14130 GET #1, record*: srt$(record*) = 

IF xx* : 2 THEN LSET srt$(record*) : tOS 

IF xx* : 3 THEN LSET srt$( record*) : tl$ 

IF LEFTSftOS, l)=chr$(0) AND LEFT$(tl$,l):chr$(0) THEN gosub nulf ld:close HI: GOTO 14230 
INCR record*: GOTO 14130 

14230 DECR record*: acc* : record*: z* : 1: GOSUB srt 

LPRINT CHR$( 18) ; "Inventory "; prf $ ; ” Sorted By "; srt$; ” Date ”; DATES; 

LPRINT TAB (60) ; "page"; temp*: temp* - temp* + 1 

LPRINT CHR$( 15) : gosub wctest: x* = 0 

fileS : prfS + ".inv": OPEN “R”, #1, fileS, 147: GOSUB invfid 

FOR w* = 1 TO acc%: record* = srt*(w*) 

GET HI, record* 

GOSUB convert 

IF LEFTS(partS, 2) = " " THEN GOTO 14470 
GOSUB wctest2 

X* = x* + wc*: IF x* < 58 THEN GOTO 14470 

LPRINT CHRS ( 12) : LPRINT CHRS(18); "Inventory ”; prfS; " Sorted By "; srt$; “ Date DATES; 
LPRINT TAB(6Q); “page"; temp*: temp* = temp* + 1: LPRINT CHR$( 15) : gosub wctest: x* : 0 
14470 NEXT 

gosub nulf ld:close ttl: GOTO invtot 
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14530 LPRINT CHR$(18); "Inventory prf $ ; " Sorted By srt$; " Date DATES; TAB(60); "page 

LPRINT temp*: LPRINT CHR$(15) 
gosub wctest 

14590 GET II, record*: GOSUB convert 

IF LEFT$(part$,l)=ohr$(0) AND LEFT$(desc$, i )=chr$f0) THEN gosub nulf ld:close SI: GOTO invtot 
IF LEFT$(part$, 2) : " ” THEN GOTO 14640 
gosub wctest2: x* = x* + wc* 

14640 INCR record* 

IF x* > 56 THEN x* - 0: temp* = temp* + 1: LPRINT CHR$(12); ; GOTO 14530 

GOTO 14590 

invtot: 

LPRINT CHR$(18); CHR$(12) 

LPRINT “Total Cost : LPRINT USING fd$; tcost 

LPRINT "Total Retail"; : LPRINT USING fd$; tret 
LPRINT CHR$( 12) : GOTO main 
veninv: 

CLS : LOCATE 1, 1: ? "Print Inventory by Vendor 1 ': record* ; 1: temp* = 1 : x% = 0 
INPUT "Enter Inventory Prefix"; prfS: IF LEN( prf $) < 1 THEN GOTO main 
INPUT "Vendor Number"; hm 

14953 CLS : ? "Sort By": ? "Intern Number": ? "2=Par t Number": ? ^Description" 

? "4 =Exi t " : INPUT "Enter Choice"; tempi: xx* = VAL(temp$) 

IF xx* < 1 OR xx* > 4 THEN GOTO 14953 

input "Enter 1 for wide (default), 2 for narrow printer, ";wc* 

if wc%< 1 then wc*=l 

srtS : "Item Number": IF xx* = 2 THEN srtS : "Part Number" 

IF xx* = 3 THEN sr t$ : "Description" 

IF xx* : 1 THEN GOTO 15010 

IF xx* : 4 THEN GOTO main 

file$ : prfS + ",inv": OPEN "R“, #1, fileS, 147: GOSUB invfld 
14961 GET ttl, record*: srtSfrecord*) : " 

IF xx* s 2 THEN LSET srtSfrecord*) : tOS 

IF xx* : 3 THEN LSET srtSfrecord*) : tlS 

IF LEFTS(t0$,l):chr$(0) AND LEFTSf tlS, 1 ):chr$(0) THEN gosub nulf ld:close #1: GOTO 14966 
INCR record*: GOTO 14961 

14966 DECR record*: acc* - record*: z* = 1: GOSUB srt 

LPRINT CHR$( 18) ; "Inventory "; prfS; " Vendor"; hm; “ Sorted By "; srtS; " Date "; DATES; 

LPRINT TABf 60) ; "page"; temp*: temp* : temp* f 1 

LPRINT CHRSflS): gosub wctest: x* : 0 

fileS •- prfS + ".inv": OPEN "R", SI, fileS, 147: GOSUB invfld 

FOR w* = 1 TO acc*: record* = srt*(w*) 

GET #1, record* 

GOSUB convert 

IF ven <> hm THEN GOTO 14980 
IF LEFTSfpartS, 2) : " " THEN GOTO 14980 
gosub wctest2 

x% - x* + wc*: IF x* < 58 THEN GOTO 14980 

LPRINT CHRS( 12) : LPRINT CHR$(18); "Inventory "; prfS; " Vendor"; hm; " Sorted 8y "; srtS; DATES; 
LPRINT TA8(60); "page"; temp*: temp* : temp* + 1: LPRINT CHRSf 15) : gosub wctest; x* : 0 
14980 NEXT 

gosub nulf Id :close SI: GOTO invtot 

15010 fileS = prf$ + ".inv": OPEN "R”, SI, fileS, 147: GOSUB invfld 

15030 LPRINT CHRSf 18) ; “Inventory “; prfS; " Vendor"; hm; " Sorted By "; srtS; DATES; 

LPRINT TAB(60) ; "page"; temp*: LPRINT CHRSf 15) 
gosub wctest 

15090 GET SI, record*: GOSUB convert 

IF LEFTSfpartS, l)--chrS(O) AND LEFT$(desc$ , 1 ) =chrS (0 ) THEN gosub nulf ld:close II: GOTO invtot 
IF LEFTSfpartS, 2) : " “ THEN GOTO 15160 
IF ven <> hm THEN INCR record*: GOTO 15090 
gosub wctest2: x* : x* + wc* 

15160 INCR record* 

IF xl > 56 THEN x* - 0: temp* = temp* + 1: LPRINT CHRSf 12) ; : GOTO 15030 

GOTO 15090 

pginv: 

CLS : LOCATE 1, 1: ? "Print Inventory by Group": record* : 1: temp* = 1 : x% = 0 
INPUT "Enter Inventory Prefix"; prfS: IF LEN(prfS) < 1 THEN GOTO main 
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input "Enter 1 for wide (default), 2 for narrow printer. ";wc* 
if wc*<l then wc%- 1 

file$ = prf $ + “.inv": OPEN "R", *1, file$, 147: GOSUB invfld 

15310 LPRINT CHR$(18); "Inventory Prefix prf S; " Group”; hm; ” Date DATES; 

LPRINT TAB(60); "page"; temp*: LPRINT CHR$(15) 
gosub wctest 

15370 GET *1, record*: GOSUB convert 

IF LEFT$(part$,l):chr$(0) AND LEFT$(desc$,l):chr$(0) THEN gosub nulf ld:close SI: GOTO invtot 
IF LEFT$( par t$ , 2) : " " THEN GOTO 15440 
IF pg <> hm THEN INCR record*: GOTO 15370 
gosub wctest2: x* - x* + wc* 

15440 INCR record* 

IF x* > 56 THEN x* - 0: temp* : temp* + 1: LPRINT CHR$(12); : GOTO 15310 

GOTO 15370 

plinv: 

CLS : LOCATE 1, 1: ? "Print Price list": record* ^ 1: temp* = 1 : x% = 0 

INPUT "Enter Inventory Prefix"; prf $ : IF LEN(prf$) < 1 THEN GOTO main 

15550 CLS : ? Sort By": ? "Intern Number": ? “2:Part Number": ? '^Description" 

? “4-Exi t" : INPUT "Enter Choice"; tempi: xx* : VAL ( tempi ) 

IF xx* < 1 OR xx* > 4 THEN GOTO 15550 

srt$ - "Item Number": IF xx* : 2 THEN srt$ : "Part Number" 

IF xx* : 3 THEN srt.$ : "Description" 

IF xx* = 1 THEN GOTO 16090 

IF xx* : 4 THEN GOTO main 

file! : prfS + ".inv": OPEN "R\ SI, fileS, 147: GOSUB invfld 
15710 GET SI, record*: srtSfrecord*) : “ 

IF xx* : 2 THEN LSET srtSfrecord*) : t0$ 

IF xx* : 3 THEN LSET srtS(record*) ; tlS 

IF LEFT$(tO$,l)-chr$(0) AND LEFTSf tl$, 1 ) -chr$(0) THEN gosub mi If Id : close SI: GOTO 15810 
INCR record*: GOTO 15710 

15810 DECR record*: acc* : record*: z* - 1: GOSUB srt 

LPRINT CHRSf 18) ; "Inventory "; prf $ ; " Price List Sorted By ”; srtS; " Date “; DATES; 

LPRINT TABf 60) ; "page"; temp*: temp* = temp* + 1: LPRINT CHRSf 15) 

CALL plheader: x* = 0 

fileS = prf $ + ".inv": OPEN "R", SI, fileS, 147: GOSUB invfld 
FOR w* ^ 1 TO acc%: record* : srt*(w*) 

GET SI, record* 

GOSUB convert 
G0SU8 plpart 

x* : x* + 1: IF x* < 55 THEN GOTO 16050 

LPRINT CHRSf 12) : LPRINT CHRS(IS) ; "Inventory "; prf $ ; " Price List Sorted By "; srtS; ' Date "; DATES; 

LPRINT TA8 (60 ) ; "page"; temp*: LPRINT CHRSf 15) : temp* : temp* + 1: CALL plheader: x* : 0 
16050 NEXT 

gosub nu If Id : close SI: LPRINT CHRS(18); CHR$(12): GOTO main 

16090 fileS = prfS + ".inv”: OPEN "R", SI, fileS, 147: GOSUB invfld 

16110 LPRINT CHRSf 18) ; "Inventory “; prfS; " Price List Sorted Bv "; srtS; “ Date "; DATES; 

LPRINT TAB(60); "page"; temp*: LPRINT CHR$(15) 

CALL plheader 

16170 GET SI, record*: GOSUB convert 

IF LEFTS(part$,l):chrS(0) AND LEFT$(desc$, 1 ) =chr$(0) THEN gosub nulfld:close SI: LPRINT CHR$(18); CHRS(12): GOTO main 
GOSUB plpart: INCR record*: x* ^ x% + 1 

IF x* > 54 THEN x* : 0: temp* : temp* + 1: LPRINT CHRS(12); : GOTO 16110 

GOTO 16170 

plpart: 

LPRINT record*; TAB(8); partS; TAB(27); descS; TAB(75); lcS; TA8(99); 

LPRINT USING fd$; price 

RETURN 

rolist: 

CLS : LOCATE 1, 1: ? "Re-order list": record* : 1: temp* = 1 : x% = 0 

INPUT "Enter Inventory Prefix"; prfS : IF LEN(prfS) < 1 THEN GOTO main 

file! - prfS + ".inv": OPEN "R", SI, fileS, 147: GOSUB invfld 

16530 LPRINT CHR$(18); “Inventory Prefix “; prfS; " Re-order List"; " Date 11 ; DATES; 

LPRINT TAB ( 60 ) ; "page"; temp*: LPRINT CHRSf 15) 

CALL roheader 

16590 GET SI, record*: GOSUB convert 
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IF qn + oo >- rp THEN INCR record*: GOTO 16590 
G0SU8 ropart: INCR record*: x* : x* + 1 

IF x* > 54 THEN x* - 0: temp* - temp* + 1: LPRINT CHR$( 12) ; : GOTO 16530 

GOTO 16590 

ropart: 

LPRINT record*; TA8(8); part$; TAB(27); desc$; TAB(73); 

LPRINT USING fi$; qn; : LPRINT TAB(87); ven 

RETURN 

turn: 

CLS : LOCATE 1, 1: ? "Turn Report": record* : 1: temp* - 1 : x% = 0 

INPUT "Enter Inventory Prefix"; prf$: IF LEN(prf$) < 1 THEN GOTO main 

? "Clear Totals ?"; : k$ : INPUTSfl): ? k$: xx* = INSTRfyY", k$) 

input "Enter Product Group (Defaults to All):"; temp 

file$ : prf $ + “.inv": OPEN "R", ttl, filet, 147: GOSUB invfid 

16990 LPRINT CHR$( 18) ; "Inventory Prefix "; prf $ ; " Turn Report "; DATES; 

LPRINT ” Group: " ; int( temp) ;TA8(65) ; "page"; temp*: LPRINT CHR$(15) 

CALL tnheader 

17050 GET SI, record*: GOSUB convert 

IF LEFT$(part$,l):chr$(0) AND LEFT$(desc$, l)=chr$(0) THEN gosub nulfld:close ttl: GOTO tntot 
if tempoO then if tempopg then incr record*:goto 17050 
GOSUB tnpart 

IF xx* > 0 THEN sold - 0: tds : 0: GOSUB setinv: PUT ti, record* 

INCR record*: x% - x* + l 

IF x* > 54 THEN x* = 0: temp* : temp* + 1: LPRINT CHR$(12); : GOTO 16990 

GOTO 17050 

tnpart: 

LPRINT record*; TA8 (8 ) ; part$; TA8(27); descS; TA8(70); 

LPRINT USING fi$; sold; : LPRINT TAB(82); : LPRINT USING fd$; sold * cost; : LPRINT TAB(96); 

LPRINT USING fd$; tds; : LPRINT TAB(llO); : LPRINT USING fd$; tds - (sold * cost) 

tcost - tcost + (sold * cost): tret ^ tret + tds 

RETURN 

tntot: 

LPRINT CHR$ ( 18 ) ; CHRS(12) 

LPRINT "Total Cost of Goods Sold"; : LPRINT USING fd$; tcost 

LPRINT "Total Amount Sold "; : LPRINT USING fd$; tret 

LPRINT "Gross Profit "; : LPRINT USING fd$; tret - tcost 

LPRINT CHR$( 12) : GOTO main 
sales: 

CALL salesm 

k$ - INPUT$(1): x* s INSTRf " 12340" , k$): ? k$: IF X* - 5 THEN GOTO main 
if x*=4 then goto 17500 

? "Clear Totals ?"; : k$ : INPUT$(1): temp* : INSTRf yY“, k$): ? k$ 

ON x* GOTO 17730, 17910, 17910, 17500 
GOTO main 

17500 GOSUB zeroti t : FILES "*,aco" 

INPUT “Enter Prefix"; prf$: IF LEN( prf $ ) < 1 THEN GOTO main 
record* : 1 : els : locate 12,25:? “Working on Record 4"; 
file$ : prf $ + “.aco": OPEN T, 13, file$, 226: G0SU8 accfld 
17550 GET #3, record*: locate 12,45:? record* 

IF LEFT$(t0$, 1) s chr$(0) AND LEFT$(t4$, 1) : chr$(0) THEN GOTO 17600 
G0SU8 cnvrtaccaf tdt=0 then incr record*:goto 17550 
temp=tdt:tdt=tdt-pd:if tdt<0 then tdt=0 
pd:pd-temp:if pd<0 then pd=0 
G0SU8 setacc 

PUT #3, record*:incr record*:goto 17550 
17600 gosub nulf ld:close #3 : goto main 
zerotit: 

CLS : LOCATE 1, 1: ? TAB(60); "Zero Accounts": RETURN 
17730 LPRINT CHR$(18); "Salesperson Report - Date-"; DATES; 

IF temp* > 0 THEN LPRINT " Totals cleared"; 

LPRINT : LPRINT 

FOR W* : 1 TO 30: IF sp(w*) : 0 THEN GOTO 17830 

LPRINT "Salesperson w*; TAB(50); : LPRINT USING fd$; sp(w*) 

17830 NEXT: IF temp* : 0 THEN GOTO 17890 
FOR w* : 1 TO 30: sp(w*) : 0: NEXT 
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17890 (.PRINT CHR$( 12) : GOTO main 

17910 LPRINT CHR$f 18) ; "Sales Report - Date-”; OATES; 

IF temp% > 0 THEN LPRINT ’ Totals cleared"; 

LPRINT : LPRINT 

LPRINT "Sales this period"; TAB(50); : LPRINT USING fd$; ptd 
LPRINT "Sales this year"; TAB(50); : LPRINT USING fd$; ytd 
LPRINT "Taxable sales"; TAB(50); : LPRINT USING fd$; ttd 
LPRINT : LPRINT "Tax Collected" 

LPRINT : FOR w* - 0 TO 9 

LPRINT "Rate Key wl; TA8(50); : LPRINT USING fd$; tax(wl): tcost : tcost + tax(w%) 

NEXT: LPRINT TA8(50); 

LPRINT "Total tax collected"; TA8(50); : LPRINT USING fd$; tcost 

IF tempi = 0 THEN GOTO 18210 

FOR w* - 0 TO 9: tax(wl) : 0: NEXT 

ttd - 0: ptd = 0: IF x* : 3 THEN ytd = 0 

GOSUB wrsrec 

18210 LPRINT CHR$( 12 ) : GOTO main 
srttit: 

srt$ = "Number": IF xxl : 2 THEN srt$ : "Name" 

IF xxt : 3 THEN srt$ = "City" 

IF xxl : 4 THEN srt$ : "State" 

IF xx* : 5 THEN srtl : "Zip Code" 

RETURN 

vlist: 

CLS : LOCATE 1, 1: ? "Vendor Lists": xl 0: tempi : 1: recordl : 1 
INPUT "Enter Prefix"; prf$: IF LEN(prf$) < 1 THEN GOTO main 
18390 CLS : ? "Sort By": ? "^Vendor Number": ? "2:Name" 

? "3:City": ? estate": ? "5-Zip Code": ? "6:Exit" 

INPUT "Enter Choice"; tempS: xxl : VAL(tempS) 

IF xxl < 1 OR xxl > 6 THEN GOTO 18390 
GOSUB srttit: IF xxl 1 THEN GOTO 18970 
IF xxl = 6 THEN GOTO main 

file$ : prf$ + ".ven": OPEN "R", #2, fileS, 180: GOSUB venfld 
18530 GET 42, recordl: sr t$( recordl) ; 

IF xxl : 2 THEN LSET srt$( recordl) : tl$ 

IF xxl : 3 THEN LSET srtS(recordl) : t4$ 

IF xxl = 4 THEN LSET srtS(recordl) : t5$ 

IF xxl - 5 THEN LSET srtS(recordl) : t6$ 

IF LEFT$(tl$,l)-chr$(0) AND LEFT$( t5$ , 1 )=chr$(0) THEN gosub nulf ld:close 42: GOTO 18670 
INCR recordl: GOTO 18530 

18670 DECR recordl: accl : recordl: zl - 1: GOSUB srt 

LPRINT CHR$(18); "Vendor List “; prf$; " Sorted By "; srt$; " Date "; DATES; 

LPRINT TAB(60); "page"; tempi: tempi : tempi + 1 
LPRINT CHRS ( 15 ) : xl : 0 

files - prf $ + “.ven": OPEN ”R", 42, fileS, 180: GOSUB venfld 
FOR «l = 1 TO accl: recordl : srtl(wl) 

GET 42, recordl 
G0SU8 cnvrtven 

LPRINT recordl: LPRINT venS; " "; vna$; " "; vna2$ 

LPRINT vnc$; " "; vnsS; " "; vnzS; " "; vnct$ 
xl : xl + 1: IF xl < 20 THEN GOTO 18930 

LPRINT CHRSf 12) : LPRINT CHRS(18); "Vendor List "; prf$; “ Sorted By “; srtS; " Date "; DATES; 
LPRINT TA8(60); "page"; tempi: tempi : tempi t 1: LPRINT CHRS( 15) : xl : 0 
18930 NEXT 

gosub nulf ld:close 42: LPRINT CHRS(18); CHR$(12): GOTO main 

18970 LPRINT CHR$( 18) ; "Vendor List "; prfS; " Sorted 8y “; srt$; " Date "; DATES: 

LPRINT TAB(60); "page"; tempi: tempi : tempi + 1 

LPRINT CHR$( 15) : xl = 0 

19030 IF recordl < 1 THEN record* : 1 

fileS = prfS + ".ven": OPEN "R", 42, fileS. 180: G0SU8 venfld 

19070 GET 42, record* 

19090 GOSUB cnvrtven: gosub nulf Id rclose 42 
IF record* < 1 THEN GOTO vlist 

IF LEFT$(ven$,l):chr$(0) AND LEFTS(vns$,l)--chrS(0) THEN GOTO 19230 
LPRINT record*: LPRINT venS; " “; vnaS; " "; vna2S 
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INCR record*: x* = x% + 1 : IF x* > 19 THEN x* = 0: LPRINT CHR$(12): GOTO 18970 
GOTO 19030 

19230 LPRINT CHR$(18); CHR$( 12): GOTO main 
alist: 

CLS : LOCATE 1, 1: ? "Accounts List": x* • 0: temp* : 1: record* : 1 
INPUT “Enter Prefix"; prf$: IF LEN(prf$) < 1 THEN GOTO main 
19310 CLS : ? "Sort 8y": ? "^Account Number": ? "2-Name" 

? " 3 = C i t y " : ? "estate": ? ”5-Zip Code": ? "6=Exit" 

INPUT “Enter Choice"; temp$: xx* = VAL(temp$) 

IF xx* < 1 OR xx* > 6 THEN GOTO 19310 
GOSUB srttit: IF xx* : 1 THEN GOTO 19890 
IF xx* - 6 THEN GOTO main 

file$ = prf$ + ".aco": OPEN T, #3, fileS, 226: GOSUB accfld 
19450 GET 13, record*: srt$(record*) : “ 

IF xx* : 2 THEN LSET srt$( record*) - tOS 

IF xx* : 3 THEN LSET srt$(record*) = t3$ 

IF xx* : 4 THEN LSET srt$( record*) : t4$ 

IF XX* : 5 THEN LSET srt$(record*) : tS$ 

IF LEFTS(tOS,l) : chrS(0) AND LEFT${ t4$ , 1 ) =chr$( 0 ) THEN gosub nulfld:close #3: GOTO 19590 
INCR record*: GOTO 19450 

19590 DECR record*: acc* = record*: z% = 1 : GOSUB srt 

LPRINT CHR$( 18) ; “Accounts List "; prf$; " Sorted By "; srt$; " Date "; DATES; 

LPRINT TAB(60); "page"; temp*: temp* : temp* + 1 
LPRINT CHR$( 15) : X* : 0 

fileS - prfS + “,aco“: OPEN “R", #3, fileS, 226: GOSUB accfld 
FOR w* : 1 TO acc*: record* = srt*(w*) 

GET 43, record* 

GOSUB cnvrtacc 

LPRINT record*: LPRINT an$; " "; aaS; " "; aa2$ 

LPRINT ac$; " “; astS: " "; az$; ' "; actS: " "; termS 
X* : X* + 1: IF x* < 20 THEN GOTO 19850 

LPRINT CHRSf 12) : LPRINT CHR$(18); "Accounts List "; prfS; " Sorted By "; srt$; " Date "; DATES 
LPRINT TA8(60); "page"; temp*: temp* : temp* + 1: LPRINT CHR$( 15) : x* : 0 
19850 NEXT 

gosub nulf ld:close 43: LPRINT CHR$( 18) ; CHR$( 12) : GOTO main 

19890 LPRINT CHRSf 18) ; "Accounts List "; prfS; " Sorted By "; srt$; " Date "; DATES: 

LPRINT TAB(60); "page"; temp*: temp* : temp* + 1 

LPRINT CHR$ ( 15): x% : 0 

19950 IF record* < 1 THEN record* : 1 

fileS : prfS + “.aco": OPEN "R", 43, fileS, 226: GOSUB accfld 

19990 GET 43, record* 

20010 GOSUB cnvrtacc: gosub nulf ld:close 43 
IF record* < 1 THEN GOTO alist 

IF LEFTS(anS,l) : chr$(0) AND LEFTSfastS , 1 ) =chr$(0 ) THEN GOTO 20150 
LPRINT record*: LPRINT anS; " "; aaS; " "; aa2$ 

LPRINT acS; " "; ast$; ” “; azS; " "; actS; " "; termS 

INCR record*: x* : x* + 1: IF x% > 19 THEN x* = 0: LPRINT CHRS(12): GOTO 19890 

GOTO 19950 

20150 LPRINT CHRSf 18) ; CHRS(12): GOTO main 
state: 

CALL statem 

kS - INPUTS(l) : ? k$: x* : INSTR("123", kS): IF x* - 0 THEN GOTO main 
INPUT “Enter Prefix"; prfS: IF LEN(prfS) < 1 THEN GOTO main 
INPUT "Account Number"; record* 

ON x* GOTO 20390, 20550, 20730 
GOTO main 

20390 IF record* < 1 THEN record* : 1 

fileS - prfS + “.aco": OPEN “R", 43, file*, 226: GOSUB accfld 

20430 GET 43, record* 

20450 GOSUB cnvrtacc: gosub nulf ld:close 43 
IF record* < 1 THEN GOTO main 

IF LEFTS(anS,l) : chrS(0) AND LEFTS(ast$, 1 )=chr$f 0) THEN GOTO main 
GOSUB 20890: INCR record*: GOTO 20390 
GOTO main 

20550 IF record* < 1 THEN record* : 1 
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20590 GET #3, record* 

20610 GOSUB cnvrtacc: gosub nulfld:close 13 
IF record* < 1 THEN GOTO main 

IF LEFT$(an$,l):chr$(0) AND LEFTS(astS,l) : chrS(0) THEN GOTO main 
IF tdt - pd < .009 THEN INCR record*: GOTO 20550 
GOSUB 20890: INCR record*: GOTO 20550 
GOTO main 

20730 IF record* < 1 THEN record* ^ 1 

file$ = prf$ + ".aco": OPEN "R\ #3, file*, 226: GOSUB accfld 

20770 GET *3, record* 

20790 G0SU8 cnvrtacc: gosub nulfld:close #3 
IF record* < 1 THEN GOTO main 

IF LEFT$(an$,l)-chr$(0) AND LEFT$( ast$ , 1 )=chr$(0) THEN GOTO main 
GOSUB 20890: GOTO main 

20890 LPRINT CHR$(18); : LPRINT cpy$: LPRINT cad$: LPRINT cad2$: LPRINT cmis$: LPRINT 

LPRINT TAB(35); CHR$(14); "STATEMENT": LPRINT : LPRINT 

LPRINT 

LPRINT "TO:"; TAB(43); "Account * prf$; record* 

LPRINT an$; TAB(43); "Date DATES 
LPRINT aaS; TA8(43); "Last invoice:"; lidS 
LPRINT aa2$; TAB(43); “Terms:"; termS 
LPRINT ac$; ", “; ast$; " “; azS: LPRINT acts 
LPRINT 
LPRINT 

LPRINT "Total Purchases"; TAB(32); "Total Paid"; TAB(71); "Balance" 

FOR w* = 1 TO 77: LPRINT : NEXT: LPRINT 

LPRINT USING fd$; tdt; : LPRINT TAB(28); : LPRINT USING fd$; pd; : LPRINT TAB(64); 
LPRINT USING fdS; tdt - pd: LPRINT CHR$(12) 

RETURN 
vlabel: 
record* : 1: 

CALL vlabelm 

kS : INPUTS(l): ? kS: x* INSTR("12", k$): IF x* : 0 THEN GOTO main 

INPUT "Enter Prefix"; prf$: IF LEN(prfS) < 1 THEN GOTO main 

INPUT "Vendor Number"; record*: z% : record*: IF record* < 1 THEN GOTO main 

INPUT "Lines per Label"; temp*: IF x* - 2 THEN GOTO 21890 

21410 CLS : ? "Sort By": ? “^Vendor Number": ? "2=Name" 

? "3:City": ? "4-State" : ? "5=Zip Code": ? "6-Exit" 

INPUT "Enter Choice"; tempS: xx* : VAL(tempS) 

IF xx* < 1 OR xx* > 6 THEN GOTO 21410 
IF xx* : 1 THEN GOTO 21890 

IF xx* : 6 THEN GOTO main 

fileS - prfS + ".ven": OPEN "R", #2, fileS, 180: GOSUB venfld 
21550 GET #2, record*: srtSf record*) : " 

IF xx* : 2 THEN LSET srt$( record*) - tlS 

IF xx* = 3 THEN LSET srtS( record*) : t4S 

IF xx* = 4 THEN LSET srt$ ( record* ) : t5S 

IF xx* : 5 THEN LSET sr t$( record*) : t6S 

IF LEFTS(tl$,l):chrS(0) AND LEFTS(t5S,l):chrS(0) THEN gosub nulf ld:close #2: GOTO 21690 

INCR record*: GOTO 21550 

21690 DECR record*: acc* = record*: G0SU8 srt 

fileS : prfS + ".ven”: OPEN "R", »2, fileS, 180: GOSUB venfld 

FOR w* ^ z* TO acc*: record* : srt*(w*) 

GET #2, record* 

GOSUB cnvrtven 

IF LEFT$(vns$, 2) : " " THEN GOTO 21850 

LPRINT ven$: LPRINT vnaS: LPRINT vna2S: LPRINT vnc$; vnsS; vnzS 

LPRINT vnct$ 

FOR ww* = 1 TO temp* - 5: LPRINT : NEXT 
21850 NEXT 

gosub nu If Id : close #2: GOTO main 

21890 fileS - prfS + ".ven": OPEN "R", #2, fileS, 180: GOSUB venfld 
21910 GET #2, record* 

21930 GOSUB cnvrtven 

IF record* < 1 THEN gosub nulf ld:close 12: GOTO main 
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IF LEFT$(vnsS, 2) - " " THEN GOTO 22050 
LPRINT ven$: LPRINT vna$: LPRINT vna2$: LPRINT vnc$; vns$; vnz$ 

LPRINT vnct$ 


FOR w* 1 TO temp% - 5: LPRINT : NEXT 
22050 IF x* : 1 THEN INCR record*: GOTO 21910 
gosub nulf ldrclose #2 : GOTO vlabel 
alabel: 
record* : 1: 

CALL alabelm 
k$ •- INPUTS(l): ? k$: 




IF x* : 0 THEN GOTO main 
THEN GOTO lain 


: INSTR( "123” , k$): 

INPUT "Enter Prefix"; prf $ : IF LEN(prf$) < 1 
INPUT "Account Number"; record*: z* : record*: IF record* < 1 THEN GOTO main 
INPUT "Lines per Label"; temp*: IF x% = 2 OR x* = 3 THEN GOTO 22750 
22270 CLS : ? "Sort By": ? "^Account Number": ? "2:Name" 

? "3:City": ? "estate": ? "S^Zip Code": ? VExit" 

INPUT "Enter Choice"; temp$: xx* : VAL(tempS) 

IF xx* < 1 OR xx* > 6 THEN GOTO 22270 
IF xx* = 1 THEN GOTO 22750 


IF xx* : 6 THEN GOTO main 

file$ - prf $ + ",aco": OPEN “R", #3, file$, 226: GOSUB accfld 
22410 GET 13, record*: srt$(record*) : " 

IF xx* = 2 THEN LSET srt$(record*) : t0$ 

IF xx* : 3 THEN LSET srt$( records) - t3$ 

IF xx* •- 4 THEN LSET srt$(record*) -- t4$ 

IF xx* : 5 THEN LSET srt$(record*) - t5$ 

IF LEFT$(t0$,l)-chr$(0) AND LEFTS ( t4$ , 1 ) =chr$( 0) THEN gosub nulf ld:close #3: GOTO 22550 

INCR record*: GOTO 22410 

22550 DECR record*: acc* : record*: GOSUB srt 

files - prfS + ".aco": OPEN "R", #3, fileS, 226: GOSUB accfld 

FOR w* = z% TO acc*: record* ; srt*(w*) 

GET #3, record* 

GOSUB cnvrtacc 

IF LEFTS(astS, 2) = " " THEN GOTO 22710 

LPRINT anS: LPRINT aaS: LPRINT aa2$: LPRINT ac$; astS; azS 

LPRINT acts 

FOR mw* : 1 TO temp* - 5: LPRINT : NEXT 
22710 NEXT 


gosub nulf ld:close S3: GOTO main 

22750 fileS - prf$ + ".aco": OPEN "R", S3, fileS, 226: GOSUB accfld 
22770 GET S3, record* 

22790 G0SU8 cnvrtacc 

IF record* < 1 THEN gosub nulf ld:close S3: GOTO main 

IF LEFTS(an$,l)-chr$(0) AND LEFTS(ast$,l)=chr$(0) THEN gosub nulf ld:close S3: GOTO main 

IF LEFTS(astS, 2) - " " THEN GOTO 22930 

IF x* : 3 AND tdt - pd < .009 THEN INCR record*: GOTO 22770 

hm=l : if x*:2 then input'How Many Labels" ; hra : if hm<l then hm- 1 

for w ; l to hm 

LPRINT an$: LPRINT aa$: LPRINT aa2$: LPRINT acS; ast$; az$ 

LPRINT acts 

FOR w* : 1 TO temp* - 5: LPRINT : NEXT 
next 


22930 IF x* : 1 OR x* : 3 THEN INCR record*: GOTO 22770 

gosub nulf ld:close S3: GOTO alabel 

findpart: 

fileS - prf $ + ".inv": OPEN "R", SI, fileS, 147: G0SU8 invfld; record* -- 1 
cklS - " ": LSET ckl$ = temps 

23030 GET SI, record* 

IF LEFTS(tOS,l) - chr$(0) AND LEFTS(tlS.l) = chrS(O) THEN record*^ : GOTO 23090 
IF cklS <> tOS THEN INCR record*: GOTO 23030 

23090 GOSUB convert: gosub nulf ld:close SI: ON rflag* GOTO 1830, main, 4070, 10470, 13190, 12150, 23570 
findac: 

fileS = prf $ + ".aco": OPEN "R", S3, fileS, 226: G0SU8 accfld 
IF record* < 1 THEN record* : 1 
23170 GET S3, record* 

IF LEFTSftOS, 1) : chrS(O) AND LEFTS(t4$, 1) : chrS(O) THEN record* : 0: GOTO 23230 


a'o - li'iji \ Lvf ; Lciiip^ / * ir A'* - u mLii inur (cuuiu^; buiu zjx/u 

23230 GOSUe cnvrtacc: gosub nu If Id : close #3: ON rf lag% GOTO 1530, 11370, 13590, main, main, main 
f indven: 

file$ = prfS + ",ven": OPEN "R", #2, file$, 180: GOSUB venfld 
IF record* < 1 THEN record* : 1 
23310 GET 12, record* 

IF LEFT$(tl$, 1) = chr$(0) AND LEFT$(t5$, 1) - chr$(0) THEN record* : 0: GOTO 23370 
x* : INSTRf tl$, temp$): IF x* -- 0 THEN INCR record*: GOTO 23310 

23370 GOSUB cnvrtven: gosub nulf ld:close 12: ON rflag* GOTO 10910, 11850, main, main, main, main 
plabel: 

CLS : LOCATE 1,1:? "Part Labels" 

INPUT "Enter Preifx"; prf$: IF LEN(prf$) < 1 THEN GOTO main 
INPUT "Enter Item Number"; record*: temp* : record* 

IF temp* < 1 THEN INPUT "Enter Part Number"; temp$; rflag* : 7: GOTO findpart 
IF record* < 1 THEN record* : 1 

file$ = prf $ + “.inv": OPEN “R", II, filet, 147: GOSUB invfid 
23530 GET II, record* 

23550 G0SU8 convert: gosub nulf Id :close II 
23570 IF record* < 1 THEN GOTO plabel 
CLS : CALL invscr: GOSUB prinv 

? “Is this the one?": k$ = INPUT$(1): x* : INSTRf "yY" , k$) 

IF x* = 0 THEN GOTO plabel 

INPUT "How many labels"; hm 

INPUT "Sale Price"; t0$: pe : VAL(tO$) 

IF pe < 0 THEN pe = price - INT ( (ABS(pe) / 100 * price) * 100) / 100 
IF LEN(tOS) < 1 THEN pe = price 
? "Price"; : PRINT USING fdt; pe 

LOCATE 18, 29: ? "Is this correct?"; : k$ = INPUTt(l): x% = INSTRf "yY" , k$): IF x* : 0 THEN GOTO main 
IF x* : 0 THEN GOTO plabel 
FOR w - 1 TO hm 

LPRINT CHR$f 15) ; prf$; record*; TAB(25); : LPRINT USING fd$; price 

LPRINT desct: LPRINT part$; TAB(30); DATES: LPRINT cpyS 

IF pe = price THEN LPRINT : GOTO 23890 

LPRINT CHRSf 18) ; "Special"; TABf 15) ; : LPRINT USING fdS; pe 

23890 LPRINT CHRS(18): NEXT 

GOTO plabel 

lockout: 

CLS : INPUT "Enter Unlock Code"; temps 

23970 CLS : ? "System Locked": INPUT "Unlock Code"; ucS 

IF ucS <> tempS THEN GOTO 23970 

GOTO main 

srt: 

FOR x* : z* TO record* 
srt*(x*) -- x*: tempS = ”}}}}}" 

FOR w* : z* TO record* 

IF srtSfw*) : "III" THEN GOTO 24150 

IF srtSfw*) < tempS THEN srt*(x*) : w*: tempS = srtS(w*) 

24150 NEXT 

srtS(srt*(x*)) : "III" 

NEXT: RETURN 
expenses: 

CALL expensesm 

? : ? "Last Entry : I tem "; xx*; : PRINT USING fd$; pe: INPUT "Enter Choice"; tempt: xx* - VAL(tempS) 

IF xx* < 1 OR xx* > 30 THEN GOTO expenses 
IF xx* - 30 THEN GOTO exitexp 

IF xx* = 29 THEN GOTO exprpt 

INPUT "Enter Amount"; t0$: pe - VAL(tOS): IF LEN(tOS) < 1 THEN GOTO expenses 

LOCATE 20, 35: ? "Is this correct?"; : k$ = INPUTS(l): x* - INSTRf "yY", k$): IF x* : 0 THEN pe = 0: xx* = 0: GOTO expenses 

cfxx*) = c(xx%) + pe : c(0) ; c(0) + pe: GOTO expenses 

exprpt: 

LPRINT "Expense Report "; DATES; LPRINT 

LPRINT "1 - Inventory Purchases"; TA8(60); : LPRINT USING fd$; c( 1) 

LPRINT "2 - Bad Debts"; TA8(60); : LPRINT USING fdS; c(2) 

LPRINT "3 - Bank Service Charges"; TA8(60); : LPRINT USING fdS; of 3) 

LPRINT "4 - Auto Expenses"; TA8(60); : LPRINT USING fdt; c(4) 

LPRINT "5 - Commissions"; TAB(60); : LPRINT USING fd$; c(5) 


LPRINT “7 - Dues & Publications"; TfiB(60); : LPRINT USING fd$; c(7) 

LPRINT "8 - Employee 8enef its" ; TAB(60); : LPRINT USING fd$; c(8) 

LPRINT "9 - Freight"; TAB(60); : LPRINT USING fd$; cf 9) 

LPRINT "10- Insurance"; TAB(60); : LPRINT USING fd$; cf 10) 

LPRINT “11- Mortage Interest"; TAB(60); : LPRINT USING fd$; c(ll) 

LPRINT “12- Other Interest"; TAB(60); ; LPRINT USING fd$; c( 12) 

LPRINT "13- Laundry & Cleaning"; TAB(60); : LPRINT USING fd$; c(13) 

LPRINT "14- Legal & Professional Services"; TAB(60); : LPRINT USING fd$; c( 14) 
LPRINT "15- Office Expenses"; TA8(60) ; : LPRINT USING fd$; c(15) 

LPRINT "16- Pension & Profit Sharing"; TAB(60); : LPRINT USING fdJ; c( 16) 

LPRINT "17- Rent"; TAB(60); : LPRINT USING fd$; cf 17) 

LPRINT "18- Repairs"; TAB(60); : LPRINT USING fd$; c(18) 

LPRINT "19- Supplies"; TA8(60); : LPRINT USING fd$; c( 19) 

LPRINT "20- Taxes"; TAB(60); : LPRINT USING fd$; c(20) 

LPRINT “21- Travel L Entertainment"; TA8(60); : LPRINT USING fd$; c(21) 

LPRINT "22- Utilities"; TA8(60); : LPRINT USING fd$; c(22) 

LPRINT "23- Wages”; TAB(60); : LPRINT USING fd$; c(23) 

LPRINT "24- Advertising"; TAS(60); : LPRINT USING fd$; c(24) 

LPRINT "25- Misc. a"; TAB(60); : LPRINT USING fd$; c(25) 

LPRINT "26- Misc, b"; TAB(60); : LPRINT USING fd$; c(26) 

LPRINT "27- Misc. c"; TAB(60); : LPRINT USING fd$; c(27) 

LPRINT "28- Misc. d"; TAB(60); : LPRINT USING fd$; c(23) 

LPRINT : LPRINT "Total"; TAB(60); : LPRINT USING fd$; c(0) 

LPRINT chr$(12) 

CLS : ? "Clearing Expense totals will zero all expenses.": ? "Clear Totals (V or N) 
k$ : INPUTJ(l): ? k$: x* - INSTRf "yY" , k$): IF x% = 0 THEN GOTO exitexp 
? "CLEARING EXPENSE TOTALS": FOR w* : 0 TO 28: c(w%) - 0: NEXT 
exitexp: 

OPEN "0", 14, "expense.dat" 

FOR w* - 0 TO 28: WRITE 44, c(w%) : NEXT 
CLOSE 14: GOTO main 

24260 IF ERL = 14590 THEN gosub nulfldrclose #1: RESUME allinv 

IF ERL : 1790 THEN record* : 0: RESUME 1810 

IF ERL : 1190 THEN CLOSE 17: RESUME 1199 

IF ERL = 4030 THEN record* = 0: RESUME 4050 

IF ERL : 10430 THEN record* : 0: RESUME 10450 

IF ERL : 12110 THEN record* -* 0: RESUME 12130 

IF ERL = 13150 THEN record* = 0: RESUME 13170 

IF ERL = 1490 THEN record* = 0: RESUME 1510 

IF ERL : 4390 THEN record* = 0: RESUME 4410 

IF ERL : 10870 THEN record* : 0: RESUME 10890 

IF ERL : 7410 THEN RESUME 7450 

IF ERL : 11330 THEN record* = 0: RESUME 11350 

IF ERL - 11810 THEN record* = 0: RESUME 11830 

IF ERL : 13550 THEN record* = 0: RESUME 13570 

IF ERL : 19070 THEN record* : 0: RESUME 19090 

IF ERL : 19990 THEN record* = 0: RESUME 20010 

IF ERL = 20430 THEN record* : 0: RESUME 20450 

IF ERL = 20590 THEN record* = 0: RESUME 20610 

IF ERL = 20770 THEN record* - 0: RESUME 20790 

IF ERL = 21910 THEN record* : 0: RESUME 21930 

IF ERL : 7670 THEN gosub nulfld:close 12: RESUME adven 

IF ERL - 22770 THEN record* : 0: RESUME 22790 

IF ERL : 23530 THEN record* : 0: RESUME 23550 

IF ERL : 7930 THEN gosub nulf Id :close 13: RESUME adacc 

IF ERL ^ 15090 THEN gosub nulf Id : close 11: RESUME veninv 

IF ERL ^ 15370 THEN gosub nulf ld:close 11: RESUME pginv 

IF ERL - 16170 THEN gosub nulf ld:close 11: RESUME plinv 

IF ERL : 16590 THEN gosub nulf Id :close 41: RESUME rolist 

IF ERL = 17050 THEN gosub nu If Id : close 41: RESUME turn 

IF ERL - 23030 THEN record* : 0; RESUME 23090 

IF ERL = 23170 THEN record* = 0: RESUME 23230 

IF ERL : 23310 THEN record* : 0: RESUME 23370 

IF ERL > 10150 AND ERL < 10290 THEN CLOSE 14: RESUME syssetup 

IF ERL = 9150 OR ERL = 9261 THEN RESUME syssetup 
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IF ERL = 14130 THEN gosub nulf ld:close *1: RESUME mam 

IF ERL - 15710 THEN gosub nulf Id : close 41: RESUME main 

IF ERL - 18530 THEN gosub nulf Id : close 42: RESUME main 

IF ERL * 19450 THEN gosub nulf Id : close 43: RESUME main 

IF ERL = 21550 THEN gosub nulf ld:close 42: RESUME mam 

IF ERL - 22410 THEN gosub nulf Id : close 43: RESUME main 

IF ERR = 57 THEN record! - 0: RESUME mam 
RESUME main 
$INCLUDE "menule.bas" 


